agenda: Add "8sleep" sugar.

[8sync.git] / 8sync / agenda.scm

diff --git a/8sync/agenda.scm b/8sync/agenda.scm
index 05a999617db1d29173678e6217af0a406a3ebd45..e747899a93f054865a319fdd4eef55d267e29b52 100644 (file)
--- 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))
+
 
 \f
 ;;; Execution of agenda, and current agenda