projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix %port-request and %port-remove-request
[8sync.git]
/
8sync
/
agenda.scm
diff --git
a/8sync/agenda.scm
b/8sync/agenda.scm
index da398458db34096d2893d61286456ee9ad156ab1..74f3b192edb7076c0c421a33871ff4e615ca2003 100644
(file)
--- a/
8sync/agenda.scm
+++ b/
8sync/agenda.scm
@@
-565,13
+565,13
@@
return the wrong thing via (%8sync) and trip themselves up."
(make-async-request
(lambda (kont)
(list (make-port-request port port-request-args ...)
(make-async-request
(lambda (kont)
(list (make-port-request port port-request-args ...)
- (make-run-request
kont
#f)))))
+ (make-run-request
(wrap kont)
#f)))))
(define-syntax-rule (%port-remove-request port)
(make-async-request
(lambda (kont)
(list (make-port-remove-request port)
(define-syntax-rule (%port-remove-request port)
(make-async-request
(lambda (kont)
(list (make-port-remove-request port)
- (make-run-request
kont
#f)))))
+ (make-run-request
(wrap kont)
#f)))))
;; Sugar
;; Sugar