X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=loopy.scm;h=99741c4727b6ef9c1d76942e4b9c90fcd5c4629c;hp=3954fea34a853c82e49726eaf40329f2a4509ba7;hb=95f268c3d55e83ab4a1b1bbf66b9de6f6eae070d;hpb=a012234d31abba1bcf26265fdaadce66356c4dc9

diff --git a/loopy.scm b/loopy.scm
index 3954fea..99741c4 100644
--- a/loopy.scm
+++ b/loopy.scm
@@ -303,7 +303,7 @@
 
 (define %current-agenda (make-parameter #f))
 
-(define* (start-agenda agenda #:optional stop-condition)
+(define* (start-agenda agenda #:key stop-condition)
   (let loop ((agenda agenda))
     (let ((agenda   
            ;; @@: Hm, maybe here would be a great place to handle