From ee7efa1dc38ec3561b8a1af9fd9192d102249882 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 13 Sep 2019 10:22:15 -0600
Subject: [PATCH] unbreak 64-bit Windows build

Fix typo in d8cb953259.

original commit: ebfa3460fd58c47df8eaf70d67db119147364bc2
---
 s/x86_64.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/s/x86_64.ss b/s/x86_64.ss
index 726a48155b..eb8e8c5559 100644
--- a/s/x86_64.ss
+++ b/s/x86_64.ss
@@ -2786,7 +2786,7 @@
                                    ;; pass by reference on the stack
                                    (loop (cdr types)
                                      (cons (load-int-stack isp) locs)
-                                     regs fp-rregs i (fx+ isp 8))])])]
+                                     regs fp-regs i (fx+ isp 8))])])]
                               [else
                                (if (< i 4)
                                    (let ([reg (vector-ref vint i)])