From 060e7509ca51307b6ebcb6d8c5bc22451db3a384 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sun, 22 Nov 2015 14:00:20 -0600 Subject: [PATCH] note about possibly replacing time-from-float-or-fraction with srfi-18 stuff --- eightsync/agenda.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/eightsync/agenda.scm b/eightsync/agenda.scm index e4cb1df..8905c1b 100644 --- a/eightsync/agenda.scm +++ b/eightsync/agenda.scm @@ -150,6 +150,9 @@ Generally done automatically for the user through (make-agenda)." (time time-segment-time) (queue time-segment-queue)) +;; @@: This seems to be the same as srfi-18's seconds->time procedure? +;; Maybe double check and switch to that? (Thanks amz3!) + (define (time-from-float-or-fraction time) "Produce a (sec . usec) pair from TIME, a float or fraction" (let* ((mixed-whole (floor time)) -- 2.31.1