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

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