From 739417f2cfac537bf7d581d86971f8abbc939f11 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Fri, 20 Nov 2015 22:05:16 -0600 Subject: [PATCH] add 8sync aliases and export 'em. Also, we're 8sync/eightsync now! --- loopy.scm | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) 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 + 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 ;;; ======================================= -- 2.31.1