From ab42709e144fd435df08bd45678f3422feb3eb70 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Sat, 27 Jun 2020 14:30:07 -0700
Subject: 6577

---
 apps/mu.subx | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'apps/mu.subx')

diff --git a/apps/mu.subx b/apps/mu.subx
index 8cb7ffc5..a3a8f65d 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -9945,6 +9945,18 @@ $has-primitive-name?:end:
     5d/pop-to-ebp
     c3/return
 
+check-mu-primitive:  # stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)
+    # . prologue
+    55/push-ebp
+    89/<- %ebp 4/r32/esp
+    # . save registers
+$check-mu-primitive:end:
+    # . restore registers
+    # . epilogue
+    89/<- %esp 5/r32/ebp
+    5d/pop-to-ebp
+    c3/return
+
 check-mu-call:  # stmt: (addr stmt), callee: (addr function), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)
     # . prologue
     55/push-ebp
@@ -10205,18 +10217,6 @@ $check-mu-call:end:
     5d/pop-to-ebp
     c3/return
 
-check-mu-primitive:  # stmt: (addr stmt), fn: (addr function), err: (addr buffered-file), ed: (addr exit-descriptor)
-    # . prologue
-    55/push-ebp
-    89/<- %ebp 4/r32/esp
-    # . save registers
-$check-mu-primitive:end:
-    # . restore registers
-    # . epilogue
-    89/<- %esp 5/r32/ebp
-    5d/pop-to-ebp
-    c3/return
-
 # like type-equal? but takes literals into account
 type-match?:  # def: (addr tree type-id), call: (addr tree type-id) -> result/eax: boolean
     # . prologue
-- 
cgit 1.4.1-2-gfad0