From cdc552b4c566af008560d7da753596fd37f09f88 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 15 Jan 2019 17:19:58 -0700
Subject: [PATCH] fixup for wrapper-procedure

original commit: 91c411aa2834a0220a5cc557deb62bc8b316d0fa
---
 s/x86_64.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/s/x86_64.ss b/s/x86_64.ss
index f769f1a6fb..7f86c2df8c 100644
--- a/s/x86_64.ss
+++ b/s/x86_64.ss
@@ -32,10 +32,10 @@
       [%yp  %r11           #f 11]
       [%cp  %r15           #t 15]
       [#;%ret %rsi           #t  6]
-      [     %rcx %Carg1    #f  1]
       [     %rdx %Carg2    #f  2]
       [     %r8  %Carg3    #f  8]
-      [     %r9  %Carg4    #f  9])
+      [     %r9  %Carg4    #f  9]
+      [     %rcx %Carg1    #f  1]) ; last to avoid use as a Scheme argument
     (machine-dependent
       [%Cfparg1 %Cfpretval #f  0]
       [%Cfparg2            #f  1]