From 287157cc6dd79a38628cf6a9025b5279110b3c57 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 13 Sep 2018 09:04:20 -0600
Subject: [PATCH] cs: `_stdcall` for Windows -> `__stdcall` for Windows x86

---
 racket/src/cs/rumble/memory.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/cs/rumble/memory.ss b/racket/src/cs/rumble/memory.ss
index 3261c96bd8..2cc89da2df 100644
--- a/racket/src/cs/rumble/memory.ss
+++ b/racket/src/cs/rumble/memory.ss
@@ -338,7 +338,7 @@
   (syntax-case stx ()
     [(_ s ...)
      (case (machine-type)
-       [(a6nt ta6nt i3nt ti3nt) #'(foreign-procedure _stdcall s ...)]
+       [(i3nt ti3nt) #'(foreign-procedure __stdcall s ...)]
        [else #'(foreign-procedure s ...)])]))
 
 ;; This is an inconvenient callback interface, certainly, but it