blob: 049451f81cc6b17b0d5bee68219ba24102244845 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
;;"srfi-8.scm": RECEIVE: Binding to multiple values
(require 'values)
;;@code{(require 'srfi-8)}
;;@ftindex srfi-8
;;@body
;;@url{http://srfi.schemers.org/srfi-8/srfi-8.html}
(define-syntax receive
(syntax-rules ()
((receive formals expression body ...)
(call-with-values (lambda () expression)
(lambda formals body ...)))))
|
