revert this part

svn: r11497
2008-08-31 06:47:17 +00:00 · 2008-08-31 06:47:17 +00:00 · 7e18fac6e4
commit 7e18fac6e4
parent d9c8ed163f
1 changed files with 6 additions and 5 deletions
--- 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)