projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)))
((? 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)))
((? 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))
(((? 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
(#f
(enq! next-queue (run-request-proc run-request))))))))
;; @@: We might support delay-wrapped procedures here