19 lines
739 B
Scheme
19 lines
739 B
Scheme
|
|
||
|
|
(library (ikarus separate-compilation)
|
||
|
|
(export compile-library-to-port)
|
||
|
|
(import
|
||
|
|
(except (ikarus) compile-library-to-port)
|
||
|
|
(only (ikarus.compiler) compile-core-expr-to-port)
|
||
|
|
(only (psyntax library-manager) current-library-expander))
|
||
|
|
|
||
|
|
(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)))
|
||
|
|
(printf "id=~s name=~s ver=~s imp*=~s vis*=~s inv*=~s\n"
|
||
|
|
id name ver imp* vis* inv*)
|
||
|
|
(fasl-write (list id name ver imp* vis* inv* export-subst export-env) p)
|
||
|
|
(compile-core-expr-to-port visit-code p)
|
||
|
|
(compile-core-expr-to-port invoke-code p))))
|
||
|
|
|