From c5f7d9dd5783dd7e0c4fa3959caef1438b0994a8 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Wed, 10 Jul 2019 11:38:24 -0700
Subject: .

I think we're calling the wrong variant here.
---
 subx/apps/survey      | Bin 37973 -> 39564 bytes
 subx/apps/survey.subx |   4 ++--
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/subx/apps/survey b/subx/apps/survey
index 177b5896..1c70d7a5 100755
Binary files a/subx/apps/survey and b/subx/apps/survey differ
diff --git a/subx/apps/survey.subx b/subx/apps/survey.subx
index ea7e34ff..dcdfe659 100644
--- a/subx/apps/survey.subx
+++ b/subx/apps/survey.subx
@@ -465,13 +465,13 @@ $compute-offsets:label:
     # . if (EAX == 0) goto next check
     3d/compare-EAX-and  0/imm32
     74/jump-if-equal  $compute-offsets:segment/disp8
-    # x/EAX = get-or-insert(labels, word-slice)
+    # x/EAX = get-or-insert-slice(labels, word-slice)
     # . . push args
     68/push  0x10/imm32/row-size
     52/push-EDX
     ff          6/subop/push        1/mod/*+disp8   5/rm32/EBP    .           .             .           .           0x10/disp8      .                 # push *(EBP+16)
     # . . call
-    e8/call  get-or-insert/disp32
+    e8/call  get-or-insert-slice/disp32
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/ESP    .           .             .           .           .               0xc/imm32         # add to ESP
     # TODO: *x = segment-offset
-- 
cgit 1.4.1-2-gfad0