projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
indentation
[8sync.git]
/
loopy.scm
diff --git
a/loopy.scm
b/loopy.scm
index fa3612586a9cce80b93c78ef1a4166bed40b8b9f..22b6ac894aac168b3f6c85258e98f89899e54f70 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)
@@
-643,11
+643,8
@@
return the wrong thing via (8sync) and trip themselves up."
based on the results"
(define (call-proc proc)
(call-with-prompt
based on the results"
(define (call-proc proc)
(call-with-prompt
- (agenda-prompt-tag agenda)
- (lambda ()
- (proc))
- (lambda (resume-with request)
- (apply-async-request resume-with request))))
+ (agenda-prompt-tag agenda)
+ proc setup-async-request))
(let ((queue (agenda-queue agenda))
(next-queue (make-q)))
(let ((queue (agenda-queue agenda))
(next-queue (make-q)))