From f04065ae644b415fdf14564aec4be0c6f6189988 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Fri, 20 Nov 2015 11:14:38 -0600 Subject: [PATCH] Set USEC's defualt in make-time-delta in #:optional --- loopy.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 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) -- 2.31.1