* auto-invoke is gone. top-level must explicitly invoke a library.
This commit is contained in:
parent
cc17420db8
commit
4eca8e3915
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -2029,7 +2029,7 @@
|
||||||
imp* vis* inv* exp-subst exp-env
|
imp* vis* inv* exp-subst exp-env
|
||||||
void ;;; FIXME
|
void ;;; FIXME
|
||||||
(lambda () (eval-core invoke-code)))
|
(lambda () (eval-core invoke-code)))
|
||||||
(invoke-library (find-library-by-name name))))))
|
#;(invoke-library (find-library-by-name name))))))
|
||||||
(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*)
|
||||||
|
|
|
@ -123,6 +123,7 @@
|
||||||
|
|
||||||
(printf "Happy Happy Joy Joy\n"))
|
(printf "Happy Happy Joy Joy\n"))
|
||||||
|
|
||||||
|
(invoke (ikarus makefile))
|
||||||
|
|
||||||
;;; ;;; NEW ARCHITECTURE
|
;;; ;;; NEW ARCHITECTURE
|
||||||
;;;
|
;;;
|
||||||
|
|
Loading…
Reference in New Issue