r5rs letrec fix

svn: r1077
2005-10-14 01:22:36 +00:00 · 2005-10-14 01:22:36 +00:00 · 2299baf597
commit 2299baf597
parent c47b962567
1 changed files with 2 additions and 1 deletions
--- 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 ...)