From 4566ec687f1212d875c723019722a277ca93560e Mon Sep 17 00:00:00 2001 From: dwrz Date: Wed, 6 Feb 2019 11:03:57 +0000 Subject: [PATCH] Refactor elisp/leap --- elisp/leap/leap.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/elisp/leap/leap.el b/elisp/leap/leap.el index 622700e..09b87d7 100644 --- a/elisp/leap/leap.el +++ b/elisp/leap/leap.el @@ -8,9 +8,9 @@ (defun leap-year-p (year) "Return whether a given year is a leap-year." - (when (= (mod year 4) 0) - (if (= (mod year 100) 0) - (when (= (mod year 400) 0) t) + (when (zerop (mod year 4)) + (if (zerop (mod year 100)) + (when (zerop (mod year 400)) t) t))) ;;; leap.el ends here