From 2299baf5970fb33565def29bf2899a6c0b5c26aa Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 14 Oct 2005 01:22:36 +0000
Subject: [PATCH] r5rs letrec fix

svn: r1077
---
 collects/lang/r5rs.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/lang/r5rs.ss b/collects/lang/r5rs.ss
index bcfcf42cf3..3ef7de3914 100644
--- a/collects/lang/r5rs.ss
+++ b/collects/lang/r5rs.ss
@@ -57,7 +57,8 @@
 	 (let ((temp1 init1) ...)
 	   (set! var1 temp1)
 	   ...
-	   body ...)))
+	   (let ()
+	     body ...))))
       ((r5rs:letrec "generate_temp_names"
 	 (x y ...)
 	 (temp ...)