From e518ad9f79e144d8f0f49feace29d30ac2acf7d6 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sat, 21 Nov 2015 20:44:23 -0600 Subject: [PATCH] rename apply-async-request -> setup-async-request; simplify call-with-prompt --- loopy.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) 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))) -- 2.31.1