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

* removes library-name/ver/id and added library-spec primitive

This commit is contained in:
Abdulaziz Ghuloum 2007-05-02 19:22:54 -04:00
parent 63d35807c1
commit 362d9f3b38
2 changed files with 6 additions and 6 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.

12
src/library-manager.ss
View File

@ -488,9 +488,7 @@
[library-subst/env library-subst/env-label (core-prim . library-subst/env)] [library-subst/env library-subst/env-label (core-prim . library-subst/env)]
[find-library-by-name find-library-by-name-label (core-prim . find-library-by-name)] [find-library-by-name find-library-by-name-label (core-prim . find-library-by-name)]
[imported-label->binding imported-label->binding-label (core-prim . imported-label->binding)] [imported-label->binding imported-label->binding-label (core-prim . imported-label->binding)]
[xlibrary-id xlibrary-id-label (core-prim . xlibrary-id)] [library-spec library-spec-label (core-prim . library-spec)]
[xlibrary-name xlibrary-name-label (core-prim . xlibrary-name)]
[xlibrary-version xlibrary-version-label (core-prim . xlibrary-version)]
)) ))
(define (lm:imported-label->binding lab) (define (lm:imported-label->binding lab)
(let f ([ls *all-libraries*]) (let f ([ls *all-libraries*])
@ -516,9 +514,11 @@
(unless (library? x) (unless (library? x)
(error 'library-subst/env "~s is not a library" x)) (error 'library-subst/env "~s is not a library" x))
(values (library-subst x) (library-env x)))) (values (library-subst x) (library-env x))))
(primitive-set! 'xlibrary-id library-id) (primitive-set! 'library-spec
(primitive-set! 'xlibrary-name library-name) (lambda (x)
(primitive-set! 'xlibrary-version library-ver) (unless (library? x)
(error 'library-spec "~s is not a library" x))
(list (library-id x) (library-name x) (library-ver x))))
(primitive-set! 'find-library-by-name lm:find-library-by-name) (primitive-set! 'find-library-by-name lm:find-library-by-name)
(primitive-set! 'imported-label->binding lm:imported-label->binding) (primitive-set! 'imported-label->binding lm:imported-label->binding)
(primitive-set! 'install-library lm:install-library)) (primitive-set! 'install-library lm:install-library))