From ad1b89e280f19c4dbc2b0fc066f20269b3121a73 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Mon, 20 Jan 2020 02:26:33 -0800
Subject: 5908

Now parse-type passes, but some outer test is failing. The result is not
being consumed right by `type-equal?`.
---
 apps/mu.subx | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'apps/mu.subx')

diff --git a/apps/mu.subx b/apps/mu.subx
index 6fe74915..b69dd57e 100644
--- a/apps/mu.subx
+++ b/apps/mu.subx
@@ -1956,10 +1956,10 @@ pos-slice:  # arr: (addr stream (handle array byte)), s: (addr slice) -> index/e
     52/push-edx
     53/push-ebx
     56/push-esi
-#?     (write-buffered Stderr "pos-slice: ")
-#?     (write-slice-buffered Stderr *(ebp+0xc))
-#?     (write-buffered Stderr "\n")
-#?     (flush Stderr)
+    (write-buffered Stderr "pos-slice: ")
+    (write-slice-buffered Stderr *(ebp+0xc))
+    (write-buffered Stderr "\n")
+    (flush Stderr)
     # esi = arr
     8b/-> *(ebp+8) 6/r32/esi
     # var index/ecx: int = 0
@@ -1986,6 +1986,8 @@ pos-slice:  # arr: (addr stream (handle array byte)), s: (addr slice) -> index/e
       41/increment-ecx
       # curr += 4
       81 0/subop/add %edx 4/imm32
+      #
+      eb/jump loop/disp8
     }
     # return index
     89/<- %eax 1/r32/ecx
-- 
cgit 1.4.1-2-gfad0