* load-handler is gone.
This commit is contained in:
parent
f6cafc8f40
commit
5db96309b6
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -5212,18 +5212,9 @@
|
||||||
(let ([proc ($code->closure code)])
|
(let ([proc ($code->closure code)])
|
||||||
(proc)))))
|
(proc)))))
|
||||||
|
|
||||||
|
|
||||||
(primitive-set! 'eval-core
|
(primitive-set! 'eval-core
|
||||||
(lambda (x) ((compile-core-expr x))))
|
(lambda (x) ((compile-core-expr x))))
|
||||||
|
|
||||||
(primitive-set! 'eval
|
|
||||||
(lambda (x)
|
|
||||||
(compile x)))
|
|
||||||
|
|
||||||
(primitive-set! 'load-handler
|
|
||||||
(lambda (x)
|
|
||||||
(chi-top-library x)
|
|
||||||
(void)))
|
|
||||||
|
|
||||||
))
|
))
|
||||||
|
|
||||||
|
|
|
@ -402,10 +402,10 @@
|
||||||
[exit exit-label (core-prim . exit)]
|
[exit exit-label (core-prim . exit)]
|
||||||
[compile compile-label (core-prim . compile)]
|
[compile compile-label (core-prim . compile)]
|
||||||
[compile-core-expr-to-port compile-core-expr-to-port-label (core-prim . compile-core-expr-to-port)]
|
[compile-core-expr-to-port compile-core-expr-to-port-label (core-prim . compile-core-expr-to-port)]
|
||||||
[eval eval-label (core-prim . eval)]
|
;[eval eval-label (core-prim . eval)]
|
||||||
[eval-core eval-core-label (core-prim . eval-core)]
|
[eval-core eval-core-label (core-prim . eval-core)]
|
||||||
[load load-label (core-prim . load)]
|
[load load-label (core-prim . load)]
|
||||||
[load-handler load-handler-label (core-prim . load-handler)]
|
;[load-handler load-handler-label (core-prim . load-handler)]
|
||||||
[assembler-output assembler-output-label (core-prim . assembler-output)]
|
[assembler-output assembler-output-label (core-prim . assembler-output)]
|
||||||
[expand expand-label (core-prim . expand)]
|
[expand expand-label (core-prim . expand)]
|
||||||
[fasl-write fasl-write-label (core-prim . fasl-write)]
|
[fasl-write fasl-write-label (core-prim . fasl-write)]
|
||||||
|
|
|
@ -789,6 +789,10 @@
|
||||||
(error 'comment-handler "~s is not a procedure" x))
|
(error 'comment-handler "~s is not a procedure" x))
|
||||||
x)))
|
x)))
|
||||||
(let ()
|
(let ()
|
||||||
|
(define load-handler
|
||||||
|
(lambda (x)
|
||||||
|
(chi-top-library x)
|
||||||
|
(void)))
|
||||||
(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