From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Thu, 19 Nov 2015 21:40:17 +0000 (-0600)
Subject: fixing the schedule-at! calls
X-Git-Tag: v0.1.0~144
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=7cb7428520144165a0e5f030931fa0b745baca16;p=8sync.git

fixing the schedule-at! calls
---

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