123456789101112131415161718192021222324252627 |
- (define-module (ice-9 receive)
- #:export (receive))
- (define-syntax-rule (receive vars vals . body)
- (call-with-values (lambda () vals)
- (lambda vars . body)))
- (cond-expand-provide (current-module) '(srfi-8))
|