* ikarus.cafe now imports eval-top-level explicitly from

ikarus.syntax
This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 20:29:58 -04:00
parent 7032f963e1
commit cbad0231d4
3 changed files with 3 additions and 10 deletions

Binary file not shown.

View File

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

View File

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