Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-13 07:47:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Use built-in receive

Browse source
This commit is contained in:
Justin Ethier 2016-08-22 18:19:48 -04:00
parent f9f2817f37
commit a6cab36d57
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
srfi/vectors/vectors-impl.scm
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.