projects
/
8sync.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
dab4817
)
rename apply-async-request -> setup-async-request; simplify call-with-prompt
author
Christopher Allan Webber
<cwebber@dustycloud.org>
Sun, 22 Nov 2015 02:44:23 +0000
(20:44 -0600)
committer
Christopher Allan Webber
<cwebber@dustycloud.org>
Sun, 22 Nov 2015 02:44:23 +0000
(20:44 -0600)
loopy.scm
patch
|
blob
|
history
diff --git
a/loopy.scm
b/loopy.scm
index fa3612586a9cce80b93c78ef1a4166bed40b8b9f..1d227f12dbc10672fbf1584db970a52b36ede55f 100644
(file)
--- a/
loopy.scm
+++ b/
loopy.scm
@@
-466,7
+466,7
@@
The purpose of this is to make sure that users don't accidentally
return the wrong thing via (8sync) and trip themselves up."
(cons '*async-request* proc))
return the wrong thing via (8sync) and trip themselves up."
(cons '*async-request* proc))
-(define (
apply
-async-request resume-kont async-request)
+(define (
setup
-async-request resume-kont async-request)
"Complete an async request for agenda-run-once's continuation handling"
(match async-request
(('*async-request* . async-setup-proc)
"Complete an async request for agenda-run-once's continuation handling"
(match async-request
(('*async-request* . async-setup-proc)
@@
-644,10
+644,7
@@
based on the results"
(define (call-proc proc)
(call-with-prompt
(agenda-prompt-tag agenda)
(define (call-proc proc)
(call-with-prompt
(agenda-prompt-tag agenda)
- (lambda ()
- (proc))
- (lambda (resume-with request)
- (apply-async-request resume-with request))))
+ proc setup-async-request))
(let ((queue (agenda-queue agenda))
(next-queue (make-q)))
(let ((queue (agenda-queue agenda))
(next-queue (make-q)))