X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fagenda.scm;h=e747899a93f054865a319fdd4eef55d267e29b52;hp=05a999617db1d29173678e6217af0a406a3ebd45;hb=1e7d9b439096bafef6cbab14d605736dc264ed53;hpb=6a8c2b1b31fcda7c58bc0a09b627916ae3641d6c

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