* removed library-subst/env procedure.
This commit is contained in:
parent
97cd3dc461
commit
1807ac38c9
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -2,7 +2,7 @@
|
||||||
|
|
||||||
|
|
||||||
(library (ikarus library-manager)
|
(library (ikarus library-manager)
|
||||||
(export imported-label->binding library-subst/env
|
(export imported-label->binding library-subst
|
||||||
current-library-collection installed-libraries
|
current-library-collection installed-libraries
|
||||||
find-library-by-name install-library
|
find-library-by-name install-library
|
||||||
library-spec invoke-library)
|
library-spec invoke-library)
|
||||||
|
@ -41,9 +41,12 @@
|
||||||
[(pred (car ls)) (car ls)]
|
[(pred (car ls)) (car ls)]
|
||||||
[else (f (cdr ls))])))
|
[else (f (cdr ls))])))
|
||||||
|
|
||||||
|
(define (install-library-by-name name)
|
||||||
|
#f)
|
||||||
|
|
||||||
(define (find-library-by-name name)
|
(define (find-library-by-name name)
|
||||||
(find-library-by
|
(find-library-by
|
||||||
(lambda (x) (equal? (library-name x) name))))
|
(lambda (x) (equal? (library-name x) name))))
|
||||||
|
|
||||||
(define (library-exists? name)
|
(define (library-exists? name)
|
||||||
(and (find-library-by
|
(and (find-library-by
|
||||||
|
@ -102,11 +105,6 @@
|
||||||
|
|
||||||
(define installed-libraries
|
(define installed-libraries
|
||||||
(lambda () ((current-library-collection))))
|
(lambda () ((current-library-collection))))
|
||||||
(define library-subst/env
|
|
||||||
(lambda (x)
|
|
||||||
(unless (library? x)
|
|
||||||
(error 'library-subst/env "~s is not a library" x))
|
|
||||||
(values (library-subst x) (library-env x))))
|
|
||||||
(define library-spec
|
(define library-spec
|
||||||
(lambda (x)
|
(lambda (x)
|
||||||
(unless (library? x)
|
(unless (library? x)
|
||||||
|
|
|
@ -595,9 +595,9 @@
|
||||||
(stx-error x))])))
|
(stx-error x))])))
|
||||||
(define scheme-stx
|
(define scheme-stx
|
||||||
(lambda (sym)
|
(lambda (sym)
|
||||||
(let-values ([(subst env)
|
(let ([subst
|
||||||
(library-subst/env
|
(library-subst
|
||||||
(find-library-by-name '(ikarus system $all)))])
|
(find-library-by-name '(ikarus system $all)))])
|
||||||
(cond
|
(cond
|
||||||
[(assq sym subst) =>
|
[(assq sym subst) =>
|
||||||
(lambda (x)
|
(lambda (x)
|
||||||
|
@ -2096,7 +2096,7 @@
|
||||||
(let ([lib (find-library-by-name spec)])
|
(let ([lib (find-library-by-name spec)])
|
||||||
(unless lib
|
(unless lib
|
||||||
(error 'import "cannot find library satisfying ~s" spec))
|
(error 'import "cannot find library satisfying ~s" spec))
|
||||||
(let-values ([(s _r) (library-subst/env lib)])
|
(let ([s (library-subst lib)])
|
||||||
(values s lib)))]))
|
(values s lib)))]))
|
||||||
(cond
|
(cond
|
||||||
[(null? imp*) (values '() '())]
|
[(null? imp*) (values '() '())]
|
||||||
|
|
Loading…
Reference in New Issue