run-it wrap wrap-apply run run-at run-delay
%port-request %run %run-at %run-delay
- 8port-request 8run 8run-at 8run-delay
print-error-and-continue
(lambda ()
body ...)))))
-;; Aliases
-(define-syntax-rule (8run args ...) (%run args ...))
-(define-syntax-rule (8run-at args ...) (%run-at args ...))
-(define-syntax-rule (8run-delay args ...) (%run-delay args ...))
-(define-syntax-rule (8port-request args ...) (%port-request args ...))
-
\f
;;; Execution of agenda, and current agenda