r7rs-tests/snow/srfi/8.scm

6 lines
184 B
Scheme
Raw Normal View History

2024-10-05 04:55:06 -04:00
(define-syntax receive
(syntax-rules ()
((receive formals expression body ...)
(call-with-values (lambda () expression)
(lambda formals body ...)))))