fixing the schedule-at! calls

[8sync.git] / loopy.scm

diff --git a/loopy.scm b/loopy.scm
index e96b130e75bb667647be65b6162559caa0124c6e..4995021a67b509e3c4d3c13bd52a82494d437d2b 100644 (file)
--- 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