From ef637b6baba763ea3b76a06ec34babb9ee08d2cd Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Mon, 26 Jul 2021 01:12:04 -0700
Subject: .

---
 shell/primitives.mu | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/shell/primitives.mu b/shell/primitives.mu
index 92a2c7a7..daf62fe4 100644
--- a/shell/primitives.mu
+++ b/shell/primitives.mu
@@ -3622,7 +3622,7 @@ fn apply-index _args-ah: (addr handle cell), out: (addr handle cell), trace: (ad
     return
   }
   var second-ah/edx: (addr handle cell) <- get right, left
-  # compare
+  # index
   var _first/eax: (addr cell) <- lookup *first-ah
   var first/ecx: (addr cell) <- copy _first
   {
@@ -3644,9 +3644,9 @@ fn apply-index _args-ah: (addr handle cell), out: (addr handle cell), trace: (ad
   var index/edx: int <- convert *second-value
   var data-ah/eax: (addr handle array handle cell) <- get first, array-data
   var data/eax: (addr array handle cell) <- lookup *data-ah
-  var len/ebx: int <- length data
-  compare index, len
   {
+    var len/eax: int <- length data
+    compare index, len
     break-if-<
     error trace, "too few elements in array"
     return
-- 
cgit 1.4.1-2-gfad0