things are looking better, lotsa cleanup in libcompile.
This commit is contained in:
parent
5db96309b6
commit
d0c92ae99e
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -5203,14 +5203,6 @@
|
|||
(primitive-set! 'compile-core-expr-to-port compile-core-expr-to-port)
|
||||
|
||||
(primitive-set! 'assembler-output (make-parameter #f))
|
||||
(primitive-set! 'compile
|
||||
(lambda (x)
|
||||
(let ([code
|
||||
(if (code? x)
|
||||
x
|
||||
(compile-expr->code x))])
|
||||
(let ([proc ($code->closure code)])
|
||||
(proc)))))
|
||||
|
||||
(primitive-set! 'eval-core
|
||||
(lambda (x) ((compile-core-expr x))))
|
||||
|
@ -5220,6 +5212,17 @@
|
|||
|
||||
#!eof junk
|
||||
|
||||
|
||||
|
||||
(primitive-set! 'compile
|
||||
(lambda (x)
|
||||
(let ([code
|
||||
(if (code? x)
|
||||
x
|
||||
(compile-expr->code x))])
|
||||
(let ([proc ($code->closure code)])
|
||||
(proc)))))
|
||||
|
||||
(define compile-file
|
||||
(lambda (input-file output-file . rest)
|
||||
(let ([ip (open-input-file input-file)]
|
||||
|
|
|
@ -400,19 +400,15 @@
|
|||
[error-handler error-handler-label (core-prim . error-handler)]
|
||||
[interrupt-handler interrupt-handler-label (core-prim . interrupt-handler)]
|
||||
[exit exit-label (core-prim . exit)]
|
||||
[compile compile-label (core-prim . compile)]
|
||||
[compile-core-expr-to-port compile-core-expr-to-port-label (core-prim . compile-core-expr-to-port)]
|
||||
;[eval eval-label (core-prim . eval)]
|
||||
[compile-core-expr-to-port compile-core-expr-to-port-label (core-prim . compile-core-expr-to-port)]
|
||||
[eval-core eval-core-label (core-prim . eval-core)]
|
||||
[load load-label (core-prim . load)]
|
||||
;[load-handler load-handler-label (core-prim . load-handler)]
|
||||
[assembler-output assembler-output-label (core-prim . assembler-output)]
|
||||
[expand expand-label (core-prim . expand)]
|
||||
[fasl-write fasl-write-label (core-prim . fasl-write)]
|
||||
[new-cafe new-cafe-label (core-prim . new-cafe)]
|
||||
[command-line-arguments command-line-arguments-label (core-prim . command-line-arguments)]
|
||||
[list*->code* list*->code*-label (core-prim . list*->code*)]
|
||||
;[primitive-location primitive-location-label (core-prim . primitive-location)]
|
||||
[install-library install-library-label (core-prim . install-library)]
|
||||
;;; record/mid-level
|
||||
[record? record?-label (core-prim . record?)]
|
||||
|
|
Loading…
Reference in New Issue