From 7cb7428520144165a0e5f030931fa0b745baca16 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Thu, 19 Nov 2015 15:40:17 -0600 Subject: [PATCH] fixing the schedule-at! calls --- loopy.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.31.1