fixup! Fixed an inconsistency

5 years ago · e416bb3f07
parent 0579b5320e
commit e416bb3f07
1 changed files with 1 additions and 3 deletions
--- a/tk/mcron.scm
+++ b/tk/mcron.scm
@ -29,7 +29,5 @@
 ;; Normalize the time tm to be the next step sized increment from base.
 ;; All time arguments are expected to be a time in seconds
 (define (step-from base step tm)
-  (let ((steps (truncate-quotient (abs (- tm base)) step)))
+  (let ((steps (euclidean-quotient (- tm base) step)))
    (+ base (* step (+ 1 steps)))))
-
-