* (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

Binary file not shown.

View File

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

View File

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