Set USEC's defualt in make-time-delta in #:optional

diff --git a/loopy.scm b/loopy.scm
index b955c4a269d6c4ab5518d4dc682a125d91b8ea68..8c216eeb7d1dd509d50846b76bf6ca510c682c4d 100644 (file)
--- 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)