diff --git a/src/ikarus.boot b/src/ikarus.boot index b3615f3..3804fb7 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 0ceb946..a744e67 100644 --- a/src/ikarus.cafe.ss +++ b/src/ikarus.cafe.ss @@ -26,7 +26,7 @@ description: (export new-cafe) (import (only (ikarus syntax) eval-top-level) - (except (ikarus) new-cafe eval-top-level)) + (except (ikarus) new-cafe)) (define with-error-handler (lambda (p thunk) diff --git a/src/ikarus.load.ss b/src/ikarus.load.ss index 2e404fb..7da2ce5 100644 --- a/src/ikarus.load.ss +++ b/src/ikarus.load.ss @@ -3,6 +3,7 @@ (export load) (import (except (ikarus) load) + (only (ikarus syntax) eval-top-level) (only (ikarus reader) read-initial)) (define load-handler diff --git a/src/makefile.ss b/src/makefile.ss index 944d52a..2461d06 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -376,7 +376,6 @@ ;[fasl-write i] [new-cafe i] [command-line-arguments i] - [eval-top-level i] [current-primitive-locations i] [record? i] [make-record-type i]