From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sat, 21 Nov 2015 04:05:16 +0000 (-0600)
Subject: add 8sync aliases and export 'em.  Also, we're 8sync/eightsync now!
X-Git-Tag: v0.1.0~125
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=739417f2cfac537bf7d581d86971f8abbc939f11;p=8sync.git

add 8sync aliases and export 'em.  Also, we're 8sync/eightsync now!
---

diff --git a/loopy.scm b/loopy.scm
index 68dc0c1..ca133b9 100644
--- a/loopy.scm
+++ b/loopy.scm
@@ -1,4 +1,4 @@
-(define-module (loopy agenda)
+(define-module (eightsync agenda)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-9)
   #:use-module (srfi srfi-9 gnu)
@@ -33,6 +33,8 @@
             schedule-segments-split schedule-extract-until!
             add-segments-contents-to-queue!
 
+            %sync 8sync %sync-at 8sync-at %sync-delay 8sync-delay
+
             <run-request>
             make-run-request run-request?
             run-request-proc run-request-when
@@ -394,9 +396,12 @@ Will produce (0 . 0) instead of a negative number, if needed."
 
 Pronounced `async' despite the spelling.
 
-8sync was chosen because (async) was already taken and could lead to
+%sync 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 :)"
+character becomes a `%' prompt! :)
+
+The % and 8 characters kind of look similar... hence this library's
+name!  (There are 8sync aliases if you prefer that name.)"
   (abort-to-prompt (current-agenda-prompt)
                    (wrap body)
                    args ...))
@@ -413,6 +418,19 @@ character becomes a `%' prompt :)"
                    #:when (tdelta delay-time)
                    args ...))
 
+(define-syntax-rule (8sync args ...)
+  "Alias for %sync"
+  (%sync args ...))
+
+(define-syntax-rule (8sync-at args ...)
+  "Alias for %sync-at"
+  (%sync-at args ...))
+
+(define-syntax-rule (8sync-delay args ...)
+  "Alias for %sync-delay"
+  (8sync-delay args ...))
+
+
 
 ;;; Execution of agenda, and current agenda
 ;;; =======================================