From f67213751bd802cdaba0666fe7cce7d28961b387 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 4 Sep 2008 22:07:23 +0000
Subject: [PATCH] use stdcall for windows kernel functions

svn: r11543

original commit: e5686a5577f39ee641093c792c09ede144a78967
---
 collects/mzlib/os.ss | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/collects/mzlib/os.ss b/collects/mzlib/os.ss
index 1594229..cf775f0 100644
--- a/collects/mzlib/os.ss
+++ b/collects/mzlib/os.ss
@@ -25,7 +25,7 @@
   
   (define windows-getcomputername
     (delay-ffi-obj "GetComputerNameExA" (force kernel32)
-		   (_fun _int _bytes _cvector -> _int)))
+		   (_fun #:abi 'stdcall _int _bytes _cvector -> _int)))
 
   (define (gethostname)
     (case (system-type)
@@ -53,12 +53,11 @@
   ;; getpid
 
   (define unix-getpid
-    (delay-ffi-obj "getpid" #f 
-		   (_fun -> _int)))
+    (delay-ffi-obj "getpid" #f (_fun -> _int)))
 
   (define windows-getpid
-    (delay-ffi-obj "GetCurrentProcessId" (force kernel32) 
-		   (_fun -> _int)))
+    (delay-ffi-obj "GetCurrentProcessId" (force kernel32)
+                   (_fun #:abi 'stdcall -> _int)))
 
   (define (getpid)
     (case (system-type)