From eb30bc7c8802a82797a1a26ed4fcd75340d4a48b Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 16 Mar 2008 15:21:29 +0000
Subject: [PATCH] use let-values for no-rest-argument case, switch to
 scheme/base

svn: r8988
---
 collects/srfi/8/receive.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/srfi/8/receive.ss b/collects/srfi/8/receive.ss
index b101fe5e99..969c250033 100644
--- a/collects/srfi/8/receive.ss
+++ b/collects/srfi/8/receive.ss
@@ -10,11 +10,13 @@
 ;;;
 ;;; oh well, there is no such comment.
 
-#lang mzscheme
+#lang scheme/base
 (provide receive)
 
 ;; (receive vars producer . body)
 (define-syntax receive
   (syntax-rules ()
+    ((receive (var ...) ?producer . ?body)
+     (let-values ([(var ...) ?producer]) . ?body))
     ((receive ?vars ?producer . ?body)
      (call-with-values (lambda () ?producer) (lambda ?vars . ?body)))))