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

* removed install-library from the prims

This commit is contained in:
Abdulaziz Ghuloum 2007-05-06 18:58:54 -04:00
parent d579b63f52
commit e35a87b57e
4 changed files with 9 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.

1
src/ikarus.library-manager.ss
View File

@ -447,7 +447,6 @@
[new-cafe new-cafe-label (core-prim . new-cafe)] [new-cafe new-cafe-label (core-prim . new-cafe)]
[command-line-arguments command-line-arguments-label (core-prim . command-line-arguments)] [command-line-arguments command-line-arguments-label (core-prim . command-line-arguments)]
[list*->code* list*->code*-label (core-prim . list*->code*)] [list*->code* list*->code*-label (core-prim . list*->code*)]
[install-library install-library-label (core-prim . install-library)]
[eval-top-level eval-top-level-label (core-prim . eval-top-level)] [eval-top-level eval-top-level-label (core-prim . eval-top-level)]
[current-primitive-locations current-primitive-locations-label (core-prim . current-primitive-locations)] [current-primitive-locations current-primitive-locations-label (core-prim . current-primitive-locations)]
;;; record/mid-level ;;; record/mid-level

4
src/ikarus.syntax.ss
View File

@ -4,7 +4,9 @@
generate-temporaries free-identifier=? syntax-error generate-temporaries free-identifier=? syntax-error
boot-library-expand eval-top-level) boot-library-expand eval-top-level)
(import (import
(rename (except (ikarus) boot-library-expand syntax-error eval-top-level) (only (ikarus library-manager) install-library)
(rename (except (ikarus) boot-library-expand syntax-error
eval-top-level install-library)
(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)))

10
src/makefile.ss
View File

@ -55,12 +55,12 @@
"ikarus.intel-assembler.ss" "ikarus.intel-assembler.ss"
"ikarus.fasl.ss" "ikarus.fasl.ss"
"ikarus.compiler.ss" "ikarus.compiler.ss"
"ikarus.library-manager.ss"
"ikarus.syntax.ss" "ikarus.syntax.ss"
"ikarus.pretty-print.ss" "ikarus.pretty-print.ss"
"ikarus.cafe.ss" "ikarus.cafe.ss"
"ikarus.posix.ss" "ikarus.posix.ss"
"ikarus.timer.ss" "ikarus.timer.ss"
"ikarus.library-manager.ss"
"libtoplevel.ss")) "libtoplevel.ss"))
(define ikarus-system-macros (define ikarus-system-macros
@ -386,7 +386,6 @@
[new-cafe s i] [new-cafe s i]
[command-line-arguments s i] [command-line-arguments s i]
[list*->code* s i] [list*->code* s i]
[install-library s i]
[eval-top-level s i] [eval-top-level s i]
[current-primitive-locations s i] [current-primitive-locations s i]
[record? s i] [record? s i]
@ -943,7 +942,6 @@
[new-cafe new-cafe-label (core-prim . new-cafe)] [new-cafe new-cafe-label (core-prim . new-cafe)]
[command-line-arguments command-line-arguments-label (core-prim . command-line-arguments)] [command-line-arguments command-line-arguments-label (core-prim . command-line-arguments)]
[list*->code* list*->code*-label (core-prim . list*->code*)] [list*->code* list*->code*-label (core-prim . list*->code*)]
[install-library install-library-label (core-prim . install-library)]
[eval-top-level eval-top-level-label (core-prim . eval-top-level)] [eval-top-level eval-top-level-label (core-prim . eval-top-level)]
[current-primitive-locations current-primitive-locations-label (core-prim . current-primitive-locations)] [current-primitive-locations current-primitive-locations-label (core-prim . current-primitive-locations)]
;;; record/mid-level ;;; record/mid-level
@ -1111,7 +1109,11 @@
',subst ',env void void)))) ',subst ',env void void))))
(let ([code `(library (ikarus primlocs) (let ([code `(library (ikarus primlocs)
(export) ;;; must be empty (export) ;;; must be empty
(import (scheme)) (import
(only (ikarus library-manager)
install-library)
(except (ikarus)
install-library))
(current-primitive-locations (current-primitive-locations
(lambda (x) (lambda (x)
(cond (cond