picrin/piclib/srfi/8.scm

11 lines
252 B
Scheme
Raw Normal View History

2014-06-18 14:21:53 -04:00
(define-library (srfi 8)
(import (scheme base))
(define-syntax receive
(syntax-rules ()
((receive formals expression body ...)
(call-with-values (lambda () expression)
(lambda formals body ...)))))
(export receive))