diff --git a/src/ikarus.boot b/src/ikarus.boot index 19bfd79..a614d80 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/ikarus.cafe.ss b/src/ikarus.cafe.ss index 74d2763..0ceb946 100644 --- a/src/ikarus.cafe.ss +++ b/src/ikarus.cafe.ss @@ -24,7 +24,9 @@ description: (library (ikarus 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 (lambda (p thunk) diff --git a/src/makefile.ss b/src/makefile.ss index 1c1aee9..b8c8663 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -299,9 +299,6 @@ [symbol-bound? i] [symbol-value i] [set-symbol-value! i] - [top-level-bound? ] - [top-level-value ] - [set-top-level-value! ] [make-guardian i] [make-input-port i] [make-output-port i] @@ -316,11 +313,6 @@ [port-input-size i] [set-port-input-index! 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] [input-port? i] [port? i] @@ -383,7 +375,6 @@ ;[fasl-write i] [new-cafe i] [command-line-arguments i] - [list*->code* i] [eval-top-level i] [current-primitive-locations i] [record? i]