conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* r6rs top-level programs seem to work.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-09 07:47:40 -04:00
parent 8c2b318648
commit 35a9aa6d20
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

7
src/ikarus.syntax.ss
View File

@ -1770,7 +1770,12 @@
(cons (add-subst rib (chi-macro value e)) (cdr e*)) (cons (add-subst rib (chi-macro value e)) (cdr e*))
r mr lex* rhs* mod** kwd* rib top?)] r mr lex* rhs* mod** kwd* rib top?)]
[else [else
(values e* r mr lex* rhs* mod** kwd*)]))))]))) (if top?
(chi-body* (cdr e*) r mr
(cons (gen-lexical 'dummy) lex*)
(cons (cons 'expr e) rhs*)
mod** kwd* rib top?)
(values e* r mr lex* rhs* mod** kwd*))]))))])))
(define (expand-transformer expr r) (define (expand-transformer expr r)
(let ([rtc (make-collector)]) (let ([rtc (make-collector)])
(let ([expanded-rhs (let ([expanded-rhs