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

use #:runtime?-id for improved cross-build support

Browse Source
This commit is contained in:
Matthew Flatt 2016-01-09 09:47:28 -07:00
parent 4d5d08f07f
commit e206dab087
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gui-lib/info.rkt
View File

@ -4,7 +4,7 @@
(define deps '("srfi-lite-lib" (define deps '("srfi-lite-lib"
"data-lib" "data-lib"
["base" #:version "6.2.900.17"] ["base" #:version "6.4"]
"syntax-color-lib" "syntax-color-lib"
["draw-lib" #:version "1.11"] ["draw-lib" #:version "1.11"]
["snip-lib" #:version "1.2"] ["snip-lib" #:version "1.2"]

3
gui-lib/mred/private/wx/platform.rkt
View File

@ -7,9 +7,10 @@
(protect-out (all-defined-out))) (protect-out (all-defined-out)))
(define-runtime-module-path-index platform-lib (define-runtime-module-path-index platform-lib
#:runtime?-id runtime?
(let ([gtk-lib (let ([gtk-lib
'(lib "mred/private/wx/gtk/platform.rkt")]) '(lib "mred/private/wx/gtk/platform.rkt")])
(case (cross-system-type) (case (if runtime? (system-type) (cross-system-type))
[(windows) (if (getenv "PLT_WIN_GTK") [(windows) (if (getenv "PLT_WIN_GTK")
gtk-lib gtk-lib
'(lib "mred/private/wx/win32/platform.rkt"))] '(lib "mred/private/wx/win32/platform.rkt"))]