update.

[elisp/apel.git] / timezone.el

diff --git a/timezone.el b/timezone.el
index 333bd90..8db1d85 100644 (file)
--- a/timezone.el
+++ b/timezone.el
@@ -288,8 +288,8 @@ Gregorian date Sunday, December 31, 1 BC."
            ;; (timezone-absolute-from-gregorian 1 1 1970)
         (days (- date current-time-origin))
          (days-1 (/ days 65536))
-         (days-2 (mod (/ days 256) 256))
-        (days-3 (mod days 256))
+         (days-2 (% (/ days 256) 256))
+        (days-3 (% days 256))
          ;; (seconds-per-day (float 86400))
         (seconds-per-day-1 1)
         (seconds-per-day-2 81)
@@ -300,25 +300,25 @@ Gregorian date Sunday, December 31, 1 BC."
          ;; (hibase (* hi current-time-arithmetic-base))
          ;; (lo (floor (- seconds hibase)))
         (seconds-1 (/ seconds 65536))
-        (seconds-2 (mod (/ seconds 256) 256))
-        (seconds-3 (mod seconds 256))
+        (seconds-2 (% (/ seconds 256) 256))
+        (seconds-3 (% seconds 256))
         hi lo
          r
         seconds-per-day*days-1
         seconds-per-day*days-2
         seconds-per-day*days-3)
     (setq r (* days-3 seconds-per-day-3)
-         seconds-per-day*days-3 (mod r 256))
+         seconds-per-day*days-3 (% r 256))
     (setq r (+ (/ r 256)
               (* days-2 seconds-per-day-3)
               (* days-3 seconds-per-day-2))
-         seconds-per-day*days-2 (mod r 256))
+         seconds-per-day*days-2 (% r 256))
     (setq seconds-per-day*days-1 (+ (/ r 256)
                                    (* days-1 seconds-per-day-3)
                                    (* (/ days 256) seconds-per-day-2)
                                    (* days seconds-per-day-1)))
     (setq r (+ seconds-2 seconds-per-day*days-2)
-         seconds-2 (mod r 256)
+         seconds-2 (% r 256)
          seconds-1 (+ seconds-1 (/ r 256)))
     (setq lo (+ (* seconds-2 256)
                seconds-3 seconds-per-day*days-3))