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"))