From 4d5d08f07f96b9a034e00fac9f7569afe9cbb8d4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 8 Jan 2016 16:45:05 -0700
Subject: [PATCH] fix back-end reference for cross-build

---
 gui-lib/mred/private/wx/platform.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gui-lib/mred/private/wx/platform.rkt b/gui-lib/mred/private/wx/platform.rkt
index 9c640fd9..aa21f881 100644
--- 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"))]