Fix expander demo to go with 19e709d27b.

This commit is contained in:
Sam Tobin-Hochstadt 2018-12-13 15:36:43 -05:00
parent a0fdee59b4
commit d2fdfe973e

View File

@ -1440,7 +1440,7 @@
;; ----------------------------------------
;; 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
(define-values (x) 0)
(print x)