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

diff --git a/loopy.scm b/loopy.scm
index fa36125..1d227f1 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)
@@ -644,10 +644,7 @@ 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))))
+        proc setup-async-request))
 
   (let ((queue (agenda-queue agenda))
         (next-queue (make-q)))