* ikarus.cafe now imports eval-top-level explicitly from
ikarus.syntax
This commit is contained in:
parent
7032f963e1
commit
cbad0231d4
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -24,7 +24,9 @@ description:
|
||||||
|
|
||||||
(library (ikarus cafe)
|
(library (ikarus cafe)
|
||||||
(export new-cafe)
|
(export new-cafe)
|
||||||
(import (except (ikarus) new-cafe))
|
(import
|
||||||
|
(only (ikarus syntax) eval-top-level)
|
||||||
|
(except (ikarus) new-cafe eval-top-level))
|
||||||
|
|
||||||
(define with-error-handler
|
(define with-error-handler
|
||||||
(lambda (p thunk)
|
(lambda (p thunk)
|
||||||
|
|
|
@ -299,9 +299,6 @@
|
||||||
[symbol-bound? i]
|
[symbol-bound? i]
|
||||||
[symbol-value i]
|
[symbol-value i]
|
||||||
[set-symbol-value! i]
|
[set-symbol-value! i]
|
||||||
[top-level-bound? ]
|
|
||||||
[top-level-value ]
|
|
||||||
[set-top-level-value! ]
|
|
||||||
[make-guardian i]
|
[make-guardian i]
|
||||||
[make-input-port i]
|
[make-input-port i]
|
||||||
[make-output-port i]
|
[make-output-port i]
|
||||||
|
@ -316,11 +313,6 @@
|
||||||
[port-input-size i]
|
[port-input-size i]
|
||||||
[set-port-input-index! i]
|
[set-port-input-index! i]
|
||||||
[set-port-input-size! i]
|
[set-port-input-size! i]
|
||||||
[*standard-input-port* i]
|
|
||||||
[*standard-output-port* i]
|
|
||||||
[*standard-error-port* i]
|
|
||||||
[*current-input-port* i]
|
|
||||||
[*current-output-port* i]
|
|
||||||
[output-port? i]
|
[output-port? i]
|
||||||
[input-port? i]
|
[input-port? i]
|
||||||
[port? i]
|
[port? i]
|
||||||
|
@ -383,7 +375,6 @@
|
||||||
;[fasl-write i]
|
;[fasl-write i]
|
||||||
[new-cafe i]
|
[new-cafe i]
|
||||||
[command-line-arguments i]
|
[command-line-arguments i]
|
||||||
[list*->code* i]
|
|
||||||
[eval-top-level i]
|
[eval-top-level i]
|
||||||
[current-primitive-locations i]
|
[current-primitive-locations i]
|
||||||
[record? i]
|
[record? i]
|
||||||
|
|
Loading…
Reference in New Issue