projects
/
8sync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
396c254
)
fixing the schedule-at! calls
author
Christopher Allan Webber
<cwebber@dustycloud.org>
Thu, 19 Nov 2015 21:40:17 +0000
(15:40 -0600)
committer
Christopher Allan Webber
<cwebber@dustycloud.org>
Thu, 19 Nov 2015 21:40:17 +0000
(15:40 -0600)
loopy.scm
patch
|
blob
|
history
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