- (wrap body)
- args ...))
-
-(define-syntax-rule (%sync-at body when args ...)
- (abort-to-prompt (current-agenda-prompt)
- (wrap body)
- #:when when
- args ...))
-
-(define-syntax-rule (%sync-delay body delay-time args ...)
- (abort-to-prompt (current-agenda-prompt)
- (wrap body)
- #:when (tdelta delay-time)
- args ...))