From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Tue, 10 May 2016 01:37:15 +0000 (-0500)
Subject: agenda: Add "8sleep" sugar.
X-Git-Tag: v0.2.0~1
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=1e7d9b439096bafef6cbab14d605736dc264ed53;p=8sync.git

agenda: Add "8sleep" sugar.

* 8sync/agenda.scm (8sleep): Sugary macro for something like "sleep",
  but tuned to 8sync to be nonblocking.
---

diff --git a/8sync/agenda.scm b/8sync/agenda.scm
index 05a9996..e747899 100644
--- a/8sync/agenda.scm
+++ b/8sync/agenda.scm
@@ -72,6 +72,7 @@
             8sync-run 8sync-run-at 8sync-run-delay
             8sync-port 8sync-port-remove
             8sync-nowait
+            8sleep
             
             catch-8sync
 
@@ -617,6 +618,11 @@ forge ahead in our current function!"
        (else (raise '8sync-caught-error
                     orig-key orig-args orig-stacks))))))
 
+;; This is sugar... and could probably be considerably
+;; simplified and optimized.  But whatever.
+(define-syntax-rule (8sleep time)
+  (8sync-delay 'no-op time))
+
 
 
 ;;; Execution of agenda, and current agenda