From ac6b7ab9cd36a5960f8289d6225a1c187debe777 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Tue, 26 Apr 2016 12:51:08 -0500 Subject: [PATCH] agenda: Rename 8sync-immediate to 8sync-nowait and fix. * 8sync/agenda.scm (8sync-nowait): Rename from 8sync-immediate. Fix so that it runs (needed to put body in lambda) --- 8sync/agenda.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/8sync/agenda.scm b/8sync/agenda.scm index 195b23a..f20fffe 100644 --- a/8sync/agenda.scm +++ b/8sync/agenda.scm @@ -71,6 +71,7 @@ 8sync 8sync-delay 8sync-run 8sync-run-at 8sync-run-delay 8sync-port 8sync-port-remove + 8sync-nowait catch-8sync @@ -593,7 +594,7 @@ Possibly specify WHEN as the second argument." ;; TODO: Write (%run-immediately) -(define-syntax-rule (8sync-immediate body) +(define-syntax-rule (8sync-nowait body) "Run body asynchronously but ignore its result... forge ahead in our current function!" (8sync-abort-to-prompt @@ -602,7 +603,7 @@ forge ahead in our current function!" (list (make-run-request ;; See comment in 8sync-port (wrap (kont #f)) #f) - (make-run-request body #f)))))) + (make-run-request (lambda () body) #f)))))) (define-syntax-rule (catch-8sync exp (handler-key handler) ...) (catch '8sync-caught-error -- 2.31.1