removed the separate-compilation.ss file because it was not needed.
This commit is contained in:
parent
8564000d0d
commit
f45a74c115
|
@ -23,8 +23,7 @@ EXTRA_DIST=ikarus.boot.prebuilt ikarus.enumerations.ss \
|
|||
psyntax.compat.ss psyntax.config.ss psyntax.expander.ss \
|
||||
psyntax.internal.ss psyntax.library-manager.ss \
|
||||
unicode/unicode-char-cases.ss unicode/unicode-charinfo.ss \
|
||||
ikarus.io.ss ikarus.time-and-date.ss \
|
||||
ikarus.separate-compilation.ss
|
||||
ikarus.io.ss ikarus.time-and-date.ss
|
||||
|
||||
all: $(nodist_pkglib_DATA)
|
||||
|
||||
|
|
|
@ -177,8 +177,7 @@ EXTRA_DIST = ikarus.boot.prebuilt ikarus.enumerations.ss \
|
|||
psyntax.compat.ss psyntax.config.ss psyntax.expander.ss \
|
||||
psyntax.internal.ss psyntax.library-manager.ss \
|
||||
unicode/unicode-char-cases.ss unicode/unicode-charinfo.ss \
|
||||
ikarus.io.ss ikarus.time-and-date.ss \
|
||||
ikarus.separate-compilation.ss
|
||||
ikarus.io.ss ikarus.time-and-date.ss
|
||||
|
||||
revno = "$(shell sed 's/ .*//' ../.bzr/branch/last-revision 2>/dev/null)"
|
||||
CLEANFILES = $(nodist_pkglib_DATA) ikarus.config.ss
|
||||
|
|
Binary file not shown.
|
@ -1,39 +0,0 @@
|
|||
|
||||
(library (ikarus separate-compilation)
|
||||
(export compile-library-to-port install-library-from-file)
|
||||
(import
|
||||
(except (ikarus) library
|
||||
compile-library-to-port
|
||||
install-library-from-file)
|
||||
(only (ikarus.compiler) compile-core-expr)
|
||||
(only (psyntax library-manager)
|
||||
install-library current-library-expander))
|
||||
|
||||
(define-struct library
|
||||
(id name ver imp* vis* inv* export-subst export-env
|
||||
visit-code invoke-code visible?))
|
||||
|
||||
(define (install-library-from-file filename)
|
||||
(let ([p (open-file-input-port filename)])
|
||||
(let ([L (fasl-read p)])
|
||||
(unless (library? L)
|
||||
(error 'install-library
|
||||
"file does not contain a valid library"
|
||||
filename))
|
||||
(install-library (library-id L) (library-name L)
|
||||
(library-ver L) (library-imp* L) (library-vis* L)
|
||||
(library-inv* L) (library-export-subst L)
|
||||
(library-export-env L) (library-visit-code L)
|
||||
(library-invoke-code L) (library-visible? L)))))
|
||||
|
||||
(define (compile-library-to-port x p)
|
||||
(let-values (((id name ver imp* vis* inv*
|
||||
invoke-code visit-code export-subst export-env)
|
||||
((current-library-expander) x)))
|
||||
(let ([L (make-library id name ver imp* vis* inv*
|
||||
export-subst export-env
|
||||
(compile-core-expr visit-code)
|
||||
(compile-core-expr invoke-code)
|
||||
#t)])
|
||||
(fasl-write L p)))))
|
||||
|
|
@ -1 +1 @@
|
|||
1396
|
||||
1397
|
||||
|
|
|
@ -89,7 +89,6 @@
|
|||
"psyntax.builders.ss"
|
||||
"psyntax.expander.ss"
|
||||
|
||||
"ikarus.separate-compilation.ss"
|
||||
"ikarus.load.ss"
|
||||
"ikarus.pretty-print.ss"
|
||||
"ikarus.cafe.ss"
|
||||
|
@ -1401,8 +1400,6 @@
|
|||
[scc-letrec i]
|
||||
[optimize-cp i]
|
||||
[optimize-level i]
|
||||
[compile-library-to-port i]
|
||||
[install-library-from-file i]
|
||||
))
|
||||
|
||||
(define (macro-identifier? x)
|
||||
|
|
Loading…
Reference in New Issue