From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Fri, 20 Nov 2015 17:14:38 +0000 (-0600)
Subject: Set USEC's defualt in make-time-delta in #:optional
X-Git-Tag: v0.1.0~131
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=f04065ae644b415fdf14564aec4be0c6f6189988;p=8sync.git

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

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)