11 lines
252 B
Scheme
11 lines
252 B
Scheme
|
(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))
|