Use built-in receive

This commit is contained in:
Justin Ethier 2016-08-22 18:19:48 -04:00
parent f9f2817f37
commit a6cab36d57

View file

@ -80,11 +80,11 @@
;;; Utilities ;;; Utilities
;;; SRFI 8, too trivial to put in the dependencies list. ;;; SRFI 8, too trivial to put in the dependencies list.
(define-syntax receive ;(define-syntax receive
(syntax-rules () ; (syntax-rules ()
((receive ?formals ?producer ?body1 ?body2 ...) ; ((receive ?formals ?producer ?body1 ?body2 ...)
(call-with-values (lambda () ?producer) ; (call-with-values (lambda () ?producer)
(lambda ?formals ?body1 ?body2 ...))))) ; (lambda ?formals ?body1 ?body2 ...)))))
;;; Not the best LET*-OPTIONALS, but not the worst, either. Use Olin's ;;; Not the best LET*-OPTIONALS, but not the worst, either. Use Olin's
;;; if it's available to you. ;;; if it's available to you.