projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
agenda: Various %port-foo enhancements
[8sync.git]
/
8sync
/
agenda.scm
diff --git
a/8sync/agenda.scm
b/8sync/agenda.scm
index eba0139fa2268f526430ae73f00285ab0e215e4b..da398458db34096d2893d61286456ee9ad156ab1 100644
(file)
--- a/
8sync/agenda.scm
+++ b/
8sync/agenda.scm
@@
-70,8
+70,9
@@
run-it wrap wrap-apply run run-at run-delay
run-it wrap wrap-apply run run-at run-delay
- %run %run-at %run-delay %port-request
- %8sync-run %8sync-run-at %8sync-run-delay %8sync-port
+ %run %run-at %run-delay %port-request %port-remove-request
+ %8sync-run %8sync-run-at %8sync-run-delay
+ %8sync-port %8sync-port-remove
catch-8sync catch-%8sync
catch-8sync catch-%8sync
@@
-564,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)))))
+ (make-run-request 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)))))
+ (make-run-request kont
#f
)))))
;; Sugar
;; Sugar
@@
-590,6
+591,10
@@
return the wrong thing via (%8sync) and trip themselves up."
"Sugar for (%8sync (%port-request ...))"
(%8sync (%port-request rest ...)))
"Sugar for (%8sync (%port-request ...))"
(%8sync (%port-request rest ...)))
+(define-syntax-rule (%8sync-port-remove rest ...)
+ "Sugar for (%8sync (%port-remove-request ...))"
+ (%8sync (%port-remove-request rest ...)))
+
;; TODO: Write (%run-immediately)
;; TODO: Write (%run-immediately)