fix back-end reference for cross-build

2016-01-08 16:45:05 -07:00 · 2016-01-08 16:45:05 -07:00 · 4d5d08f07f
commit 4d5d08f07f
parent 6e7964b0b7
1 changed files with 4 additions and 2 deletions
--- a/gui-lib/mred/private/wx/platform.rkt
+++ b/gui-lib/mred/private/wx/platform.rkt
@ -1,13 +1,15 @@
 #lang racket/base
 (require racket/runtime-path 
-         (for-syntax racket/base))
+         setup/cross-system
+         (for-syntax racket/base
+                     setup/cross-system))
 (provide 
 (protect-out (all-defined-out)))

 (define-runtime-module-path-index platform-lib
  (let ([gtk-lib
         '(lib "mred/private/wx/gtk/platform.rkt")])
-    (case (system-type)
+    (case (cross-system-type)
      [(windows) (if (getenv "PLT_WIN_GTK")
                     gtk-lib
                     '(lib "mred/private/wx/win32/platform.rkt"))]