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

renamed: 

src/libfasl.ss => src/ikarus.fasl.ss
This commit is contained in:
Abdulaziz Ghuloum 2007-05-05 21:24:43 -04:00
parent facdfd959f
commit f501df0778
4 changed files with 11 additions and 8 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.

5
src/ikarus.compiler.ss
View File

@ -4,10 +4,11 @@
current-primitive-locations eval-core) current-primitive-locations eval-core)
(import (import
(only (scheme) $record-ref $record/rtd? $code->closure) (only (scheme) $record-ref $record/rtd? $code->closure)
(except (ikarus) (except (ikarus) ;fasl-write
compile-core-expr-to-port assembler-output compile-core-expr-to-port assembler-output
current-primitive-locations eval-core) current-primitive-locations eval-core)
(ikarus intel-assembler)) (ikarus intel-assembler)
(ikarus fasl write))

8
src/libfasl.ss → src/ikarus.fasl.ss
View File

@ -31,8 +31,10 @@
(library (ikarus fasl write) (library (ikarus fasl write)
(export) (export fasl-write)
(import (scheme)) (import
(only (scheme) $closure-code $base-rtd)
(except (ikarus) fasl-write))
(define write-fixnum (define write-fixnum
(lambda (x p) (lambda (x p)
@ -223,7 +225,7 @@
(write-char #\1 port) (write-char #\1 port)
(fasl-write-object x port h 1) (fasl-write-object x port h 1)
(void)))) (void))))
(primitive-set! 'fasl-write (define fasl-write
(case-lambda (case-lambda
[(x) (fasl-write-to-port x (current-output-port))] [(x) (fasl-write-to-port x (current-output-port))]
[(x port) [(x port)

6
src/makefile.ss
View File

@ -54,7 +54,7 @@
"ikarus.code-objects.ss" "ikarus.code-objects.ss"
"ikarus.intel-assembler.ss" "ikarus.intel-assembler.ss"
"libfasl.ss" "ikarus.fasl.ss"
"libtrace.ss" "libtrace.ss"
"ikarus.compiler.ss" "ikarus.compiler.ss"
"libsyntax.ss" "libsyntax.ss"
@ -438,7 +438,7 @@
[eval-core s i] [eval-core s i]
[load s i] [load s i]
[assembler-output s i] [assembler-output s i]
[fasl-write s i] ;[fasl-write s i]
[new-cafe s i] [new-cafe s i]
[command-line-arguments s i] [command-line-arguments s i]
[list*->code* s i] [list*->code* s i]
@ -897,7 +897,7 @@
[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)]
[assembler-output assembler-output-label (core-prim . assembler-output)] [assembler-output assembler-output-label (core-prim . assembler-output)]
[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*)]