suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

revert this part

Browse Source 
svn: r11497
This commit is contained in:
Eli Barzilay 2008-08-31 06:47:17 +00:00
parent d9c8ed163f
commit 7e18fac6e4
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/r5rs/init.ss
View File

@ -9,8 +9,9 @@
;; Printing pairs with curly braces is a bad idea, because ;; Printing pairs with curly braces is a bad idea, because
;; syntax errors then use curly braces! ;; syntax errors then use curly braces!
(let-syntax ([out (syntax-rules () (define-syntax out
[(_) (begin (syntax-rules ()
(require "main.ss") [(_) (begin
(provide (all-from-out "main.ss")))])]) (require "main.ss")
(out)) (provide (all-from-out "main.ss")))]))
(out)