From 6866b9405a85d2722fac52df350f74830b144d03 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sun, 6 Dec 2015 21:01:51 -0600 Subject: [PATCH] Fix %port-request and %port-remove-request Both of these need to have their continuation wrapped with (wrap). I'm honestly a bit fuzzy on why this fixes things but it does. * 8sync/agenda.scm (%port-request, %port-remove-request): Adjusted to wrap kont with `wrap' macro. --- 8sync/agenda.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/8sync/agenda.scm b/8sync/agenda.scm index da39845..74f3b19 100644 --- 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-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) - (make-run-request kont #f))))) + (make-run-request (wrap kont) #f))))) ;; Sugar -- 2.31.1