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
;;; =================================
;; The future's in futures
+;; @@: ... kinda conflicts with ice-9 futures. Should we rename
+;; to "futurists"? :)
(define (make-future call-first on-success on-fail on-error)
;; TODO: add error stuff here
(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