conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

things are looking better, lotsa cleanup in libcompile.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-03 00:54:32 -04:00
parent 5db96309b6
commit d0c92ae99e
3 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

19
src/libcompile.ss
View File

@ -5203,14 +5203,6 @@
(primitive-set! 'compile-core-expr-to-port compile-core-expr-to-port) (primitive-set! 'compile-core-expr-to-port compile-core-expr-to-port)
(primitive-set! 'assembler-output (make-parameter #f)) (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 (primitive-set! 'eval-core
(lambda (x) ((compile-core-expr x)))) (lambda (x) ((compile-core-expr x))))
@ -5220,6 +5212,17 @@
#!eof junk #!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 (define compile-file
(lambda (input-file output-file . rest) (lambda (input-file output-file . rest)
(let ([ip (open-input-file input-file)] (let ([ip (open-input-file input-file)]

6
src/library-manager.ss
View File

@ -400,19 +400,15 @@
[error-handler error-handler-label (core-prim . error-handler)] [error-handler error-handler-label (core-prim . error-handler)]
[interrupt-handler interrupt-handler-label (core-prim . interrupt-handler)] [interrupt-handler interrupt-handler-label (core-prim . interrupt-handler)]
[exit exit-label (core-prim . exit)] [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)]
[compile-core-expr-to-port compile-core-expr-to-port-label (core-prim . compile-core-expr-to-port)]
;[eval eval-label (core-prim . eval)]
[eval-core eval-core-label (core-prim . eval-core)] [eval-core eval-core-label (core-prim . eval-core)]
[load load-label (core-prim . load)] [load load-label (core-prim . load)]
;[load-handler load-handler-label (core-prim . load-handler)]
[assembler-output assembler-output-label (core-prim . assembler-output)] [assembler-output assembler-output-label (core-prim . assembler-output)]
[expand expand-label (core-prim . expand)] [expand expand-label (core-prim . expand)]
[fasl-write fasl-write-label (core-prim . fasl-write)] [fasl-write fasl-write-label (core-prim . fasl-write)]
[new-cafe new-cafe-label (core-prim . new-cafe)] [new-cafe new-cafe-label (core-prim . new-cafe)]
[command-line-arguments command-line-arguments-label (core-prim . command-line-arguments)] [command-line-arguments command-line-arguments-label (core-prim . command-line-arguments)]
[list*->code* list*->code*-label (core-prim . list*->code*)] [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)] [install-library install-library-label (core-prim . install-library)]
;;; record/mid-level ;;; record/mid-level
[record? record?-label (core-prim . record?)] [record? record?-label (core-prim . record?)]