Fixed an inconsistency

5 years ago · 0579b5320e
parent 026a66f68d
commit 0579b5320e
2 changed files with 4 additions and 1 deletions
--- a/tk/listlogic.scm
+++ b/tk/listlogic.scm
@ -45,3 +45,4 @@
 (define (l& ls1 ls2)
  (cond ((eqv? ls1 ls2) ls1)
        (else (lp& eqv? ls1 ls2))))
+
--- a/tk/mcron.scm
+++ b/tk/mcron.scm
@ -29,5 +29,7 @@
 ;; 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 (- tm base) step)))
+  (let ((steps (truncate-quotient (abs (- tm base)) step)))
    (+ base (* step (+ 1 steps)))))
+
+