From 746e8ff1fbe4978f4be3e54777122bee16f7e2b7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 18 Apr 2015 09:19:33 +0100
Subject: [PATCH] fix `getpid` for Windows ro use `winapi` instead of 'stdcall

---
 compatibility-lib/mzlib/os.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compatibility-lib/mzlib/os.rkt b/compatibility-lib/mzlib/os.rkt
index 7e0a6d1..0875cde 100644
--- a/compatibility-lib/mzlib/os.rkt
+++ b/compatibility-lib/mzlib/os.rkt
@@ -55,7 +55,7 @@
 
 (define windows-getpid
   (delay-ffi-obj "GetCurrentProcessId" (force kernel32)
-                 (_fun #:abi 'stdcall -> _int)))
+                 (_fun #:abi winapi -> _int)))
 
 (define (getpid)
   ((force (case (system-type)