From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Fri, 20 Nov 2015 22:46:04 +0000 (-0600)
Subject: Rename async -> %sync
X-Git-Tag: v0.1.0~126
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=38f30fa607340ea204900f022ee606feca5f12cb;p=8sync.git

Rename async -> %sync

Though I'm not sure, maybe 8sync would be better.
---

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