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

* swapped core-compile-expr and alt-core-compile-expr

This commit is contained in:
Abdulaziz Ghuloum 2007-06-06 02:48:09 +03:00
parent 7301be0ab0
commit 563f32c16f
3 changed files with 3 additions and 3 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.compiler.ss
View File

@ -5236,7 +5236,7 @@
(tail-indirect-cpr-call)))) (tail-indirect-cpr-call))))
SL_fx+_overflow])) SL_fx+_overflow]))
(define (compile-core-expr->code p) (define (alt-compile-core-expr->code p)
(let* ([p (recordize p)] (let* ([p (recordize p)]
[p (optimize-direct-calls p)] [p (optimize-direct-calls p)]
[p (optimize-letrec p)] [p (optimize-letrec p)]
@ -5273,7 +5273,7 @@
ls*)]) ls*)])
(car code*))))) (car code*)))))
(define (alt-compile-core-expr->code p) (define (compile-core-expr->code p)
(let* ([p (recordize p)] (let* ([p (recordize p)]
[p (parameterize ([open-mvcalls #f]) [p (parameterize ([open-mvcalls #f])
(optimize-direct-calls p))] (optimize-direct-calls p))]

2
src/makefile.ss
View File

@ -856,7 +856,7 @@
(let ([p (open-output-file "ikarus.boot" 'replace)]) (let ([p (open-output-file "ikarus.boot" 'replace)])
(for-each (for-each
(lambda (x) (lambda (x)
(alt-compile-core-expr-to-port x p)) (compile-core-expr-to-port x p))
core*) core*)
(close-output-port p))))) (close-output-port p)))))