From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sun, 22 Nov 2015 02:44:23 +0000 (-0600)
Subject: rename apply-async-request -> setup-async-request; simplify call-with-prompt
X-Git-Tag: v0.1.0~118
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=e518ad9f79e144d8f0f49feace29d30ac2acf7d6

rename apply-async-request -> setup-async-request; simplify call-with-prompt
---

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)))