Export port-remove stuff, add %8sync-port-remove, and fix
%port-request and %port-remove-request
* 8sync/agenda.scm (%8sync-port-remove): new variable
(%port-remove-request, %8sync-port-remove): exported
(%port-request, %port-remove-request): Fixed calls to make-run-request
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
(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 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)