projects
/
8sync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e0499fb
)
make the agenda use the run-request
author
Christopher Allan Webber
<cwebber@dustycloud.org>
Thu, 19 Nov 2015 19:28:30 +0000
(13:28 -0600)
committer
Christopher Allan Webber
<cwebber@dustycloud.org>
Thu, 19 Nov 2015 19:28:30 +0000
(13:28 -0600)
loopy.scm
patch
|
blob
|
history
diff --git
a/loopy.scm
b/loopy.scm
index b93a1debbfab0bc6701c3b536394f3442c353c30..f11b6b8503b2d235c00544b31956052ff718c28e 100644
(file)
--- a/
loopy.scm
+++ b/
loopy.scm
@@
-309,15
+309,19
@@
based on the results"
(let* ((proc (q-pop! queue))
(proc-result (call-proc proc))
(enqueue
(let* ((proc (q-pop! queue))
(proc-result (call-proc proc))
(enqueue
- (lambda (new-proc)
- (enq! next-queue new-proc))))
+ (lambda (run-request)
+ (cond
+ ((run-request-when run-request)
+ (error "TODO"))
+ (else
+ (enq! next-queue (run-request-proc run-request)))))))
;; @@: We might support delay-wrapped procedures here
(match proc-result
;; TODO: replace procedure with something that indicates
;; intent to run. Use a (run foo) procedure
;; @@: We might support delay-wrapped procedures here
(match proc-result
;; TODO: replace procedure with something that indicates
;; intent to run. Use a (run foo) procedure
- ((?
procedure
? new-proc)
+ ((?
run-request
? new-proc)
(enqueue new-proc))
(enqueue new-proc))
- (((?
procedure
? new-procs) ...)
+ (((?
run-request
? new-procs) ...)
(for-each
(lambda (new-proc)
(enqueue new-proc))
(for-each
(lambda (new-proc)
(enqueue new-proc))