#!r6rs
;; Copyright 2009 Derick Eddington.  My MIT-style license is in the file named
;; LICENSE from the original collection this file is distributed with.

(library (srfi :8 receive)
  (export receive)
  (import (rnrs))
  
  (define-syntax receive
    (syntax-rules ()
      ((_ formals expression b b* ...)
       (call-with-values 
         (lambda () expression)
         (lambda formals b b* ...)))))
  
)