* before removing (ikarus system).

This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 19:14:51 -04:00
parent e35a87b57e
commit 5a488fe96c
3 changed files with 11 additions and 4 deletions

Binary file not shown.

View File

@ -4,9 +4,17 @@
generate-temporaries free-identifier=? syntax-error
boot-library-expand eval-top-level)
(import
(only (ikarus library-manager) install-library)
(ikarus library-manager)
(rename (except (ikarus) boot-library-expand syntax-error
eval-top-level install-library)
library-subst/env
find-library-by-name
imported-label->binding
imported-loc->library
library-spec
current-library-collection
invoke-library
installed-libraries
eval-top-level)
(free-identifier=? sys:free-identifier=?)
(identifier? sys:identifier?)
(generate-temporaries sys:generate-temporaries)))

View File

@ -1112,8 +1112,7 @@
(import
(only (ikarus library-manager)
install-library)
(except (ikarus)
install-library))
(ikarus))
(current-primitive-locations
(lambda (x)
(cond