From 38f30fa607340ea204900f022ee606feca5f12cb Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Fri, 20 Nov 2015 16:46:04 -0600 Subject: [PATCH] Rename async -> %sync Though I'm not sure, maybe 8sync would be better. --- loopy.scm | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) diff --git a/loopy.scm b/loopy.scm index 55e3da7..68dc0c1 100644 --- a/loopy.scm +++ b/loopy.scm @@ -389,22 +389,29 @@ Will produce (0 . 0) instead of a negative number, if needed." (make-future call-first on-success on-fail on-error) when)) -(define-syntax-rule (async body args ...) +(define-syntax-rule (%sync body args ...) + "Run BODY asynchronously at a prompt, passing args to make-future. + +Pronounced `async' despite the spelling. + +8sync was chosen because (async) was already taken and could lead to +errors, and this version of asynchronous code uses a prompt, so the `a' +character becomes a `%' prompt :)" (abort-to-prompt (current-agenda-prompt) (wrap body) args ...)) -(define-syntax-rule (async-at body when args ...) +(define-syntax-rule (%sync-at body when args ...) (abort-to-prompt (current-agenda-prompt) (wrap body) - (append (list #:when when) - args ...))) + #:when when + args ...)) -(define-syntax-rule (async-delay body delay-time args ...) +(define-syntax-rule (%sync-delay body delay-time args ...) (abort-to-prompt (current-agenda-prompt) (wrap body) - (append (list #:when (tdelta delay-time)) - args ...))) + #:when (tdelta delay-time) + args ...)) ;;; Execution of agenda, and current agenda -- 2.31.1