Refactor elisp/leap

2019-02-06 11:03:57 +00:00
parent 0b299c6d20
commit 4566ec687f
1 changed files with 3 additions and 3 deletions
@@ -8,9 +8,9 @@
 (defun leap-year-p (year)
 "Return whether a given year is a leap-year."
-  (when (= (mod year 4) 0)
+  (when (zerop (mod year 4))
-    (if (= (mod year 100) 0)
+    (if (zerop (mod year 100))
-        (when (= (mod year 400) 0) t)
+        (when (zerop (mod year 400)) t)
      t)))
 ;;; leap.el ends here