From 737ee9eba5c62bbe33373fed3cf18027646a8ed1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 26 Jan 2019 16:41:42 -0700 Subject: [PATCH] expander: fix flattener in machine-independent mode --- racket/src/expander/run.rkt | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/racket/src/expander/run.rkt b/racket/src/expander/run.rkt index d9d907de31..143dc04de2 100644 --- a/racket/src/expander/run.rkt +++ b/racket/src/expander/run.rkt @@ -205,6 +205,11 @@ ;; Avoid use of ".zo" files: (use-compiled-file-paths null) +;; In case the host is in machine-independent mode, claim +;; machine-specific so the expander doesn't skip our extracting +;; linklet compiler: +(current-compile-target-machine (system-type 'target-machine)) + ;; Redirect module search to another installation: (when checkout-directory (let ([l (list (build-path checkout-directory "collects"))])