Fix expander demo to go with 19e709d27b
.
This commit is contained in:
parent
a0fdee59b4
commit
d2fdfe973e
|
@ -1440,7 +1440,7 @@
|
||||||
;; ----------------------------------------
|
;; ----------------------------------------
|
||||||
;; Machine-independent compilation format and recompilation
|
;; Machine-independent compilation format and recompilation
|
||||||
|
|
||||||
(let ([mi-c (parameterize ([compile-machine-independent #t])
|
(let ([mi-c (parameterize ([current-compile-target-machine #f])
|
||||||
(compile-expression `(module to-recompile '#%kernel
|
(compile-expression `(module to-recompile '#%kernel
|
||||||
(define-values (x) 0)
|
(define-values (x) 0)
|
||||||
(print x)
|
(print x)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user