From e288df5e8eacdb9c48cdd95d273da8ca854af134 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 27 Feb 2018 17:55:41 -0700 Subject: [PATCH] add missing key in "system.rktd" to enable cross-compilation --- racket/src/racket/mksystem.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/racket/src/racket/mksystem.rkt b/racket/src/racket/mksystem.rkt index 061873d2dd..a493d77623 100644 --- a/racket/src/racket/mksystem.rkt +++ b/racket/src/racket/mksystem.rkt @@ -15,7 +15,8 @@ '3m ; GC mode for suffixless executables (if (string=? "" (vector-ref args 2)) '3m - 'cgc)) + 'cgc)) + 'vm (system-type 'vm) 'link (system-type 'link) 'machine (bytes->string/utf-8 (path->bytes (system-library-subpath #f))) 'so-suffix (system-type 'so-suffix) @@ -57,6 +58,7 @@ 'gc (if (string=? "" (vector-ref args 2)) '3m 'cgc) + 'vm 'racket 'link (get-symbol "system_type_link") 'machine library-subpath 'so-suffix (string->bytes/utf-8 (get-string "system_type_so_suffix"))