From e416bb3f07d7d591ce2704d23edf96a946cab271 Mon Sep 17 00:00:00 2001
From: Brady McDonough <brady.mcd.codes@gmail.com>
Date: Thu, 4 Feb 2021 02:35:34 -0700
Subject: [PATCH] fixup! Fixed an inconsistency

---
 tk/mcron.scm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/tk/mcron.scm b/tk/mcron.scm
index 82d4d41..74131d3 100644
--- 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)))))
-
-