From 371f2ca494554276acb329fef62a5aa105166ec4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 1 Jul 2011 10:34:43 -0600
Subject: [PATCH] add ffi/winapi; use it in mzlib/os  Closes PR 12007

original commit: 59731368fc7d90c1177c60ade3ec1f8c4fb0a4ae
---
 collects/mred/private/wx/win32/types.rkt | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/collects/mred/private/wx/win32/types.rkt b/collects/mred/private/wx/win32/types.rkt
index 288dfa4b..d446fedc 100644
--- a/collects/mred/private/wx/win32/types.rkt
+++ b/collects/mred/private/wx/win32/types.rkt
@@ -1,5 +1,6 @@
 #lang racket/base
-(require ffi/unsafe)
+(require ffi/unsafe
+	 ffi/winapi)
 
 (provide
  (protect-out _wfun
@@ -50,11 +51,8 @@
               MAKELONG
               MAKELPARAM))
 
-(define win64? (equal? "win32\\x86_64" (path->string (system-library-subpath #f))))
-(define win_abi (if win64? #f 'stdcall))
-
 (define-syntax-rule (_wfun . a)
-  (_fun #:abi win_abi . a))
+  (_fun #:abi winapi . a))
 
 (define _WORD _int16)
 (define _DWORD _int32)