* new-cafe and load use eval-top-level now.
This commit is contained in:
parent
2632c786ec
commit
4f8d8fa212
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -99,7 +99,7 @@ description:
|
||||||
|
|
||||||
(define default-cafe-eval
|
(define default-cafe-eval
|
||||||
(lambda (x)
|
(lambda (x)
|
||||||
(chi-top-library x)))
|
(eval-top-level x)))
|
||||||
|
|
||||||
(primitive-set! 'new-cafe
|
(primitive-set! 'new-cafe
|
||||||
(case-lambda
|
(case-lambda
|
||||||
|
|
|
@ -791,7 +791,7 @@
|
||||||
(let ()
|
(let ()
|
||||||
(define load-handler
|
(define load-handler
|
||||||
(lambda (x)
|
(lambda (x)
|
||||||
(chi-top-library x)))
|
(eval-top-level x)))
|
||||||
(define read-and-eval
|
(define read-and-eval
|
||||||
(lambda (p eval-proc)
|
(lambda (p eval-proc)
|
||||||
(let ([x (my-read p)])
|
(let ([x (my-read p)])
|
||||||
|
|
Loading…
Reference in New Issue