X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=loopy.scm;h=8c216eeb7d1dd509d50846b76bf6ca510c682c4d;hp=b955c4a269d6c4ab5518d4dc682a125d91b8ea68;hb=f04065ae644b415fdf14564aec4be0c6f6189988;hpb=1585ad786d07390c308145c0683609e3c34aa2e4

diff --git a/loopy.scm b/loopy.scm
index b955c4a..8c216ee 100644
--- a/loopy.scm
+++ b/loopy.scm
@@ -158,12 +158,12 @@ run (time-segment-right-format) first."
   (sec time-delta-sec)
   (usec time-delta-usec))
 
-(define* (make-time-delta sec #:optional usec)
+(define* (make-time-delta sec #:optional (usec 0))
   "Make a <time-delta> of SEC seconds and USEC microseconds.
 
 This is used primarily so the agenda can recognize RUN-REQUEST objects
 which are meant "
-  (make-time-delta-intern sec (or usec 0)))
+  (make-time-delta-intern sec usec))
 
 (define tdelta make-time-delta)