* new-cafe and load use eval-top-level now.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-03 01:19:50 -04:00
parent 2632c786ec
commit 4f8d8fa212
3 changed files with 2 additions and 2 deletions

Binary file not shown.

View File

@ -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

View File

@ -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)])