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

* changed (ikarus syntax) to build letrec* instead of letrec for 

internal and library definitions.
This commit is contained in:
Abdulaziz Ghuloum 2007-05-09 06:33:44 -04:00
parent 31b73fd46c
commit 3be2a9d9af
2 changed files with 2 additions and 2 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.

4
src/ikarus.syntax.ss
View File

@ -1672,7 +1672,7 @@
(stx-error e* "no expression in body")) (stx-error e* "no expression in body"))
(let ([rhs* (chi-rhs* rhs* r mr)] (let ([rhs* (chi-rhs* rhs* r mr)]
[init* (chi-expr* (append (apply append (reverse mod**)) e*) r mr)]) [init* (chi-expr* (append (apply append (reverse mod**)) e*) r mr)])
(build-letrec no-source (build-letrec* no-source
(reverse lex*) (reverse rhs*) (reverse lex*) (reverse rhs*)
(build-sequence no-source init*))))))) (build-sequence no-source init*)))))))
(define chi-library-internal (define chi-library-internal
@ -1992,7 +1992,7 @@
(make-export-env/macros r)]) (make-export-env/macros r)])
(values (values
name imp* (rtc) (vtc) name imp* (rtc) (vtc)
(build-letrec no-source lex* rhs* invoke-body) (build-letrec* no-source lex* rhs* invoke-body)
macro* macro*
export-subst export-env))))))))))))) export-subst export-env)))))))))))))
(define (visit! macro*) (define (visit! macro*)