suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add missing key in "system.rktd" to enable cross-compilation

Browse Source
This commit is contained in:
Matthew Flatt 2018-02-27 17:55:41 -07:00
parent 0e9634f917
commit e288df5e8e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/mksystem.rkt
View File

@ -16,6 +16,7 @@
(if (string=? "" (vector-ref args 2)) (if (string=? "" (vector-ref args 2))
'3m '3m
'cgc)) 'cgc))
'vm (system-type 'vm)
'link (system-type 'link) 'link (system-type 'link)
'machine (bytes->string/utf-8 (path->bytes (system-library-subpath #f))) 'machine (bytes->string/utf-8 (path->bytes (system-library-subpath #f)))
'so-suffix (system-type 'so-suffix) 'so-suffix (system-type 'so-suffix)
@ -57,6 +58,7 @@
'gc (if (string=? "" (vector-ref args 2)) 'gc (if (string=? "" (vector-ref args 2))
'3m '3m
'cgc) 'cgc)
'vm 'racket
'link (get-symbol "system_type_link") 'link (get-symbol "system_type_link")
'machine library-subpath 'machine library-subpath
'so-suffix (string->bytes/utf-8 (get-string "system_type_so_suffix")) 'so-suffix (string->bytes/utf-8 (get-string "system_type_so_suffix"))