* removed library-subst/env procedure.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-07 03:55:51 -04:00
parent 97cd3dc461
commit 1807ac38c9
3 changed files with 9 additions and 11 deletions

Binary file not shown.

View File

@ -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)

View File

@ -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 '() '())]