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"))
(let ([rhs* (chi-rhs* rhs* 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*)
(build-sequence no-source init*)))))))
(define chi-library-internal
@ -1992,7 +1992,7 @@
(make-export-env/macros r)])
(values
name imp* (rtc) (vtc)
(build-letrec no-source lex* rhs* invoke-body)
(build-letrec* no-source lex* rhs* invoke-body)
macro*
export-subst export-env)))))))))))))
(define (visit! macro*)