projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
8sync-run 8sync-run-at 8sync-run-delay
8sync-port 8sync-port-remove
8sync-nowait
+ 8sleep
catch-8sync
catch-8sync
@@
-617,6
+618,11
@@
forge ahead in our current function!"
(else (raise '8sync-caught-error
orig-key orig-args orig-stacks))))))
(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
\f
;;; Execution of agenda, and current agenda