X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fagenda.scm;h=af5ef3ce31b516bbeb2d9df05404926e9d0fa336;hp=3bd5787962ff4f25b3c62c9421b4bdcf55331e92;hb=e7161a37ba465d41bb9fde3ba1d3a7a3f4f8da42;hpb=40c22324febda345a3a8b50fe9293b2f29ee43d4

diff --git a/8sync/agenda.scm b/8sync/agenda.scm
index 3bd5787..af5ef3c 100644
--- a/8sync/agenda.scm
+++ b/8sync/agenda.scm
@@ -575,14 +575,20 @@ Possibly specify WHEN as the second argument."
    (make-async-request
     (lambda (kont)
       (list (make-port-request port port-request-args ...)
-            (make-run-request kont #f))))))
+            (make-run-request
+             ;; What's with returning #f to kont?
+             ;; Otherwise we sometimes get errors like
+             ;; "Zero values returned to single-valued continuation""
+             (wrap (kont #f)) #f))))))
 
 (define-syntax-rule (%8sync-port-remove port)
   (%8sync-abort-to-prompt
    (make-async-request
     (lambda (kont)
       (list (make-port-remove-request port)
-            (make-run-request kont #f))))))
+            (make-run-request
+             ;; See comment in %8sync-port
+             (wrap (kont #f)) #f))))))
 
 
 ;; TODO: Write (%run-immediately)
@@ -593,7 +599,9 @@ forge ahead in our current function!"
   (%8sync-abort-to-prompt
    (make-async-request
     (lambda (kont)
-      (list (make-run-request kont #f)
+      (list (make-run-request
+             ;; See comment in %8sync-port
+             (wrap (kont #f)) #f)
             (make-run-request body #f))))))
 
 (define-syntax-rule (catch-8sync exp (handler-key handler) ...)