X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=loopy.scm;h=22b6ac894aac168b3f6c85258e98f89899e54f70;hb=cc3001a104f7e2f75858737eb930343c4a8b7999;hp=fa3612586a9cce80b93c78ef1a4166bed40b8b9f;hpb=dab481739b248294c94bb5e37f3f36c43536e0f0;p=8sync.git

diff --git a/loopy.scm b/loopy.scm
index fa36125..22b6ac8 100644
--- a/loopy.scm
+++ b/loopy.scm
@@ -466,7 +466,7 @@ The purpose of this is to make sure that users don't accidentally
 return the wrong thing via (8sync) and trip themselves up."
   (cons '*async-request* proc))
 
-(define (apply-async-request resume-kont async-request)
+(define (setup-async-request resume-kont async-request)
   "Complete an async request for agenda-run-once's continuation handling"
   (match async-request
     (('*async-request* . async-setup-proc)
@@ -643,11 +643,8 @@ return the wrong thing via (8sync) and trip themselves up."
 based on the results"
   (define (call-proc proc)
     (call-with-prompt
-        (agenda-prompt-tag agenda)
-      (lambda ()
-        (proc))
-      (lambda (resume-with request)
-        (apply-async-request resume-with request))))
+     (agenda-prompt-tag agenda)
+     proc setup-async-request))
 
   (let ((queue (agenda-queue agenda))
         (next-queue (make-q)))