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

* (ikarus system unsafe) is gone. 

* a new bootstrap library is added for three primitives.
This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 20:54:30 -04:00
parent f46dac0612
commit 1703ff38f8
2 changed files with 28 additions and 30 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.

28
src/makefile.ss
View File

@ -2,7 +2,9 @@
(library (ikarus makefile) (library (ikarus makefile)
(export) (export)
(import (ikarus)) (import
(ikarus system $bootstrap)
(ikarus))
(define scheme-library-files (define scheme-library-files
;;; Listed in the order in which they're loaded. ;;; Listed in the order in which they're loaded.
@ -95,10 +97,9 @@
[or (macro . or)])) [or (macro . or)]))
(define library-legend (define library-legend
'([$all (ikarus system $all)] '([i (ikarus)]
[u (ikarus system unsafe)]
[i (ikarus)]
[r (r6rs)] [r (r6rs)]
[$all (ikarus system $all)]
[$pairs (ikarus system $pairs)] [$pairs (ikarus system $pairs)]
[$lists (ikarus system $lists)] [$lists (ikarus system $lists)]
[$chars (ikarus system $chars)] [$chars (ikarus system $chars)]
@ -114,6 +115,7 @@
[$arg-list (ikarus system $arg-list)] [$arg-list (ikarus system $arg-list)]
[$stack (ikarus system $stack)] [$stack (ikarus system $stack)]
[$interrupts (ikarus system $interrupts)] [$interrupts (ikarus system $interrupts)]
[$boot (ikarus system $bootstrap)]
)) ))
(define ikarus-macros-map (define ikarus-macros-map
@ -369,12 +371,10 @@
[error-handler i] [error-handler i]
[interrupt-handler i] [interrupt-handler i]
[exit i] [exit i]
[compile-core-expr-to-port i]
[load i] [load i]
[assembler-output i] [assembler-output i]
[new-cafe i] [new-cafe i]
[command-line-arguments i] [command-line-arguments i]
[current-primitive-locations i]
[record? i] [record? i]
[make-record-type i] [make-record-type i]
[record-type-descriptor i] [record-type-descriptor i]
@ -393,7 +393,6 @@
[syntax-error i] [syntax-error i]
[generate-temporaries i] [generate-temporaries i]
[free-identifier=? i] [free-identifier=? i]
[boot-library-expand i]
[code? i] [code? i]
[make-code i] [make-code i]
[code-reloc-vector i] [code-reloc-vector i]
@ -404,14 +403,11 @@
[code-set! i] [code-set! i]
[immediate? i] [immediate? i]
[pointer-value i] [pointer-value i]
[installed-libraries i]
[library-subst/env i] [current-library-collection $boot]
[find-library-by-name i] [compile-core-expr-to-port $boot]
[imported-label->binding i] [current-primitive-locations $boot]
[imported-loc->library i] [boot-library-expand $boot]
[library-spec i]
[current-library-collection i]
[invoke-library i]
; (ikarus system $pairs) ; (ikarus system $pairs)
[$car $pairs] [$car $pairs]
[$cdr $pairs] [$cdr $pairs]
@ -660,6 +656,8 @@
(import (import
(only (ikarus library-manager) (only (ikarus library-manager)
install-library) install-library)
(only (ikarus compiler)
current-primitive-locations)
(ikarus)) (ikarus))
(current-primitive-locations (current-primitive-locations
(lambda (x) (lambda (x)