From 1e7d9b439096bafef6cbab14d605736dc264ed53 Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Mon, 9 May 2016 20:37:15 -0500
Subject: [PATCH] agenda: Add "8sleep" sugar.

* 8sync/agenda.scm (8sleep): Sugary macro for something like "sleep",
  but tuned to 8sync to be nonblocking.
---
 8sync/agenda.scm | 6 ++++++
 1 file changed, 6 insertions(+)

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
-- 
2.31.1