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

* run-library-expander now installs and invokes the library 

automatically.
This commit is contained in:
Abdulaziz Ghuloum 2007-05-02 20:29:32 -04:00
parent c3767da70e
commit 9a80586934
3 changed files with 24 additions and 15 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.

3
src/library-manager.ss
View File

@ -45,7 +45,8 @@
(error 'install-library "~s is already installed" name)) (error 'install-library "~s is already installed" name))
(let ([lib (make-library id name ver imp-lib* vis-lib* inv-lib* (let ([lib (make-library id name ver imp-lib* vis-lib* inv-lib*
exp-subst exp-env visit-code invoke-code)]) exp-subst exp-env visit-code invoke-code)])
(set! *all-libraries* (cons lib *all-libraries*))))) (set! *all-libraries* (cons lib *all-libraries*))
)))
(define scheme-env ; the-env (define scheme-env ; the-env
'([define define-label (define)] '([define define-label (define)]

36
src/libsyntax.ss
View File

@ -2022,20 +2022,12 @@
(let ([label (cadr x)] [type (caddr x)] [val (cadddr x)]) (let ([label (cadr x)] [type (caddr x)] [val (cadddr x)])
(cons label (cons type val)))) (cons label (cons type val))))
exp*)]) exp*)])
(build-application no-source (install-library id name ver
(build-primref no-source 'install-library) imp* vis* inv* exp-subst exp-env
(list (build-data no-source id) void
(build-data no-source name) (lambda () (compile-time-eval-hook invoke-code)))
(build-data no-source ver) (invoke-library (find-library-by-name name))
(build-data no-source imp*) (build-void)))))
(build-data no-source vis*)
(build-data no-source inv*)
(build-data no-source exp-subst)
(build-data no-source exp-env)
(build-primref no-source 'void)
(build-sequence no-source
(list invoke-code
(build-primref no-source 'void)))))))))
(define boot-library-expander (define boot-library-expander
(lambda (x) (lambda (x)
(let-values ([(name imp* run* invoke-code exp*) (let-values ([(name imp* run* invoke-code exp*)
@ -2089,6 +2081,22 @@
#!eof junk #!eof junk
(build-application no-source
(build-primref no-source 'install-library)
(list (build-data no-source id)
(build-data no-source name)
(build-data no-source ver)
(build-data no-source imp*)
(build-data no-source vis*)
(build-data no-source inv*)
(build-data no-source exp-subst)
(build-data no-source exp-env)
(build-primref no-source 'void)
(build-sequence no-source
(list invoke-code
(build-primref no-source 'void)))))
(module (make-stx stx? stx-expr stx-mark* stx-subst*) (module (make-stx stx? stx-expr stx-mark* stx-subst*)
(define make-stx (define make-stx
(lambda (e m* s*) (lambda (e m* s*)