From 7e18fac6e469ed7c721c409fbe49e5a714fbabe1 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 31 Aug 2008 06:47:17 +0000
Subject: [PATCH] revert this part

svn: r11497
---
 collects/r5rs/init.ss | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/collects/r5rs/init.ss b/collects/r5rs/init.ss
index bcd703e849..6ecb157a4e 100644
--- a/collects/r5rs/init.ss
+++ b/collects/r5rs/init.ss
@@ -9,8 +9,9 @@
 ;; Printing pairs with curly braces is a bad idea, because
 ;;  syntax errors then use curly braces!
 
-(let-syntax ([out (syntax-rules ()
-                    [(_) (begin
-                           (require "main.ss")
-                           (provide (all-from-out "main.ss")))])])
-  (out))
+(define-syntax out
+  (syntax-rules ()
+    [(_) (begin
+           (require "main.ss")
+           (provide (all-from-out "main.ss")))]))
+(out)