X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=loopy.scm;h=4995021a67b509e3c4d3c13bd52a82494d437d2b;hp=e96b130e75bb667647be65b6162559caa0124c6e;hb=7cb7428520144165a0e5f030931fa0b745baca16;hpb=396c2542b7c546ac669605470a83b8c0ee8c0381

diff --git a/loopy.scm b/loopy.scm
index e96b130..4995021 100644
--- a/loopy.scm
+++ b/loopy.scm
@@ -349,12 +349,12 @@ based on the results"
                     ((? time-delta? time-delta)
                      (let ((time (time-+ (agenda-time agenda)
                                          time-delta)))
-                       (schedule-at! time (run-request-proc proc))))
+                       (schedule-at! time (run-request-proc run-request))))
                     ((? integer? sec)
                      (let ((time (cons sec 0)))
-                       (schedule-at! time (run-request-proc proc))))
+                       (schedule-at! time (run-request-proc run-request))))
                     (((? integer? sec) . (? integer? usec))
-                     (schedule-at! request-time (run-request-proc proc)))
+                     (schedule-at! request-time (run-request-proc run-request)))
                     (#f
                      (enq! next-queue (run-request-proc run-request))))))))
         ;; @@: We might support delay-wrapped procedures here