20 lines
567 B
Plaintext
20 lines
567 B
Plaintext
|
;; Copyright (c) 2009 Derick Eddington. All rights reserved.
|
||
|
|
;; Licensed under an MIT-style license. My license is in the file
|
||
|
|
;; named LICENSE from the original collection this file is distributed
|
||
|
|
;; with. If this file is redistributed with some other collection, my
|
||
|
|
;; license must also be included.
|
||
|
|
|
||
|
|
#!r6rs
|
||
|
|
(library (srfi s8 receive)
|
||
|
|
(export receive)
|
||
|
|
(import (rnrs))
|
||
|
|
|
||
|
|
(define-syntax receive
|
||
|
|
(syntax-rules ()
|
||
|
|
[(_ formals expression b b* ...)
|
||
|
|
(call-with-values
|
||
|
|
(lambda () expression)
|
||
|
|
(lambda formals b b* ...))]))
|
||
|
|
|
||
|
|
)
|