parent
7931512241
commit
2a1713ef81
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -23,8 +23,8 @@ description:
|
||||||
Be specific about what the error-port is |#
|
Be specific about what the error-port is |#
|
||||||
|
|
||||||
(library (ikarus cafe)
|
(library (ikarus cafe)
|
||||||
(export)
|
(export new-cafe)
|
||||||
(import (scheme))
|
(import (except (ikarus) new-cafe))
|
||||||
|
|
||||||
(define with-error-handler
|
(define with-error-handler
|
||||||
(lambda (p thunk)
|
(lambda (p thunk)
|
||||||
|
@ -101,7 +101,7 @@ description:
|
||||||
(lambda (x)
|
(lambda (x)
|
||||||
(eval-top-level x)))
|
(eval-top-level x)))
|
||||||
|
|
||||||
(primitive-set! 'new-cafe
|
(define new-cafe
|
||||||
(case-lambda
|
(case-lambda
|
||||||
[() (do-new-cafe default-cafe-eval)]
|
[() (do-new-cafe default-cafe-eval)]
|
||||||
[(p)
|
[(p)
|
|
@ -56,7 +56,7 @@
|
||||||
"ikarus.compiler.ss"
|
"ikarus.compiler.ss"
|
||||||
"ikarus.syntax.ss"
|
"ikarus.syntax.ss"
|
||||||
"ikarus.pretty-print.ss"
|
"ikarus.pretty-print.ss"
|
||||||
"libcafe.ss"
|
"ikarus.cafe.ss"
|
||||||
"libposix.ss"
|
"libposix.ss"
|
||||||
"libtimers.ss"
|
"libtimers.ss"
|
||||||
"library-manager.ss"
|
"library-manager.ss"
|
||||||
|
|
Loading…
Reference in New Issue