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

diff --git a/loopy.scm b/loopy.scm
index 68dc0c1a843abd83c602668512413b7f5d66d8af..ca133b9f79d525825d31d6f90381fa0741683f83 100644 (file)
--- 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 ...))
+
+
 \f
 ;;; Execution of agenda, and current agenda
 ;;; =======================================