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

* (ikarus syntax) now uses (ikarus system $all) instead of (scheme) 

to construct scheme-stx objects.
This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 19:20:52 -04:00
parent 5a488fe96c
commit a41b08894d
3 changed files with 13 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.

2
src/ikarus.syntax.ss
View File

@ -566,7 +566,7 @@
(lambda (sym) (lambda (sym)
(let-values ([(subst env) (let-values ([(subst env)
(library-subst/env (library-subst/env
(find-library-by-name '(scheme)))]) (find-library-by-name '(ikarus system $all)))])
(cond (cond
[(assq sym subst) => [(assq sym subst) =>
(lambda (x) (lambda (x)

19
src/makefile.ss
View File

@ -95,7 +95,8 @@
[or (macro . or)])) [or (macro . or)]))
(define library-legend (define library-legend
'([s (ikarus system)] '([$all (ikarus system $all)]
[s (ikarus system)]
[u (ikarus system unsafe)] [u (ikarus system unsafe)]
[i (ikarus)] [i (ikarus)]
[r (r6rs)] [r (r6rs)]
@ -1101,12 +1102,16 @@
[version '()] [version '()]
[import-libs '()] [import-libs '()]
[visit-libs '()] [visit-libs '()]
[invoke-libs '()] [invoke-libs '()])
[subst (get-export-subset key export-subst)] (let-values ([(subst env)
[env (if (equal? name '(ikarus system)) export-env '())]) (if (equal? name '(ikarus system $all))
`(install-library (values export-subst export-env)
',id ',name ',version ',import-libs ',visit-libs ',invoke-libs (values
',subst ',env void void)))) (get-export-subset key export-subst)
'()))])
`(install-library
',id ',name ',version ',import-libs ',visit-libs ',invoke-libs
',subst ',env void void)))))
(let ([code `(library (ikarus primlocs) (let ([code `(library (ikarus primlocs)
(export) ;;; must be empty (export) ;;; must be empty
(import (import