# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 745005141 0
# Node ID 7ef95208bfe72d424896251041422c8516e4e39a
# Parent  51eef6f31754dbb94a5f814b3dcfb130cdee8974
(calendar-absolute-from-time, calendar-time-from-absolute): Use % in place
of mod.  Use (floor (/ A B)) in place of (floor A B).

diff -r 51eef6f31754 -r 7ef95208bfe7 lisp/calendar/cal-dst.el
--- a/lisp/calendar/cal-dst.el	Tue Aug 10 17:27:50 1993 +0000
+++ b/lisp/calendar/cal-dst.el	Tue Aug 10 17:52:21 1993 +0000
@@ -58,13 +58,13 @@
   (let* ((h (car x))
 	 (xtail (cdr x))
          (l (+ utc-diff (if (numberp xtail) xtail (car xtail))))
-         (u (+ (* 512 (mod h 675)) (floor l 128))))
+         (u (+ (* 512 (% h 675)) (floor (/ l 128)))))
     ;; Overflow is a terrible thing!
     (cons (+ calendar-system-time-basis
 	     ;; floor((2^16 h +l) / (60*60*24))
-	     (* 512 (mod h 675)) (floor u 675))
+	     (* 512 (% h 675)) (floor (/ u 675)))
 	  ;; (2^16 h +l) % (60*60*24)
-	  (+ (* (mod u 675) 128) (floor l 128)))))
+	  (+ (* (% u 675) 128) (floor (% l 128))))))
 
 (defun calendar-time-from-absolute (abs-date s)
   "Time of absolute date ABS-DATE, S seconds after midnight.
@@ -74,13 +74,13 @@
 ignoring leap seconds, that is the equivalent moment to S seconds after
 midnight UTC on absolute date ABS-DATE."
   (let* ((a (- abs-date calendar-system-time-basis))
-         (u (+ (* 163 (mod a 512)) (floor s 128))))
+         (u (+ (* 163 (% a 512)) (floor (/ s 128)))))
     ;; Overflow is a terrible thing!
     (cons
      ;; (60*60*24*a + s) / 2^16
-     (+ a (* 163 (floor a 512)) (floor u 512))
+     (+ a (* 163 (floor (/ a 512))) (floor (/ u 512)))
      ;; (60*60*24*a + s) % 2^16
-     (+ (* 128 (mod u 512)) (mod s 128)))))
+     (+ (* 128 (% u 512)) (% s 128)))))
 
 (defun calendar-next-time-zone-transition (time)
   "Return the time of the next time zone transition after TIME.