* now exporting installed-libraries.
This commit is contained in:
parent
37920f52af
commit
4c8029ab3e
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -6,7 +6,7 @@
|
||||||
installed-libraries
|
installed-libraries
|
||||||
find-library-by-name install-library
|
find-library-by-name install-library
|
||||||
library-spec invoke-library)
|
library-spec invoke-library)
|
||||||
(import (ikarus))
|
(import (except (ikarus) installed-libraries))
|
||||||
|
|
||||||
(define (make-collection)
|
(define (make-collection)
|
||||||
(let ([set '()])
|
(let ([set '()])
|
||||||
|
|
|
@ -7,7 +7,7 @@
|
||||||
(ikarus library-manager)
|
(ikarus library-manager)
|
||||||
(only (ikarus compiler) eval-core)
|
(only (ikarus compiler) eval-core)
|
||||||
(rename (except (ikarus) boot-library-expand syntax-error
|
(rename (except (ikarus) boot-library-expand syntax-error
|
||||||
eval-top-level)
|
eval-top-level installed-libraries)
|
||||||
(free-identifier=? sys:free-identifier=?)
|
(free-identifier=? sys:free-identifier=?)
|
||||||
(identifier? sys:identifier?)
|
(identifier? sys:identifier?)
|
||||||
(generate-temporaries sys:generate-temporaries)))
|
(generate-temporaries sys:generate-temporaries)))
|
||||||
|
|
|
@ -399,6 +399,7 @@
|
||||||
[immediate? i]
|
[immediate? i]
|
||||||
[pointer-value i]
|
[pointer-value i]
|
||||||
|
|
||||||
|
[installed-libraries i]
|
||||||
[compile-core-expr-to-port $boot]
|
[compile-core-expr-to-port $boot]
|
||||||
[current-primitive-locations $boot]
|
[current-primitive-locations $boot]
|
||||||
[boot-library-expand $boot]
|
[boot-library-expand $boot]
|
||||||
|
|
Loading…
Reference in New Issue