From 4f60a4a6b25d42af31ac2a3da5ceb6263162304d Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 24 Jul 2021 21:02:34 -0700
Subject: .

---
 shell/infix.mu | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'shell')

diff --git a/shell/infix.mu b/shell/infix.mu
index 3f88cabf..7df3d01b 100644
--- a/shell/infix.mu
+++ b/shell/infix.mu
@@ -89,8 +89,8 @@ fn transform-infix-2 _x-ah: (addr handle cell), trace: (addr trace), at-head-of-
     var first-ah/ecx: (addr handle cell) <- get x, left
     {
       var first/eax: (addr cell) <- lookup *first-ah
-      var infix?/eax: boolean <- operator-symbol? first
-      compare infix?, 0/false
+      var operator?/eax: boolean <- operator-symbol? first
+      compare operator?, 0/false
     }
     break-if-=
     var rest-ah/eax: (addr handle cell) <- get x, right
@@ -127,8 +127,8 @@ fn transform-infix-2 _x-ah: (addr handle cell), trace: (addr trace), at-head-of-
     var first-ah/ecx: (addr handle cell) <- get x, left
     var rest-ah/esi: (addr handle cell) <- get x, right
     var first/eax: (addr cell) <- lookup *first-ah
-    var first-infix?/eax: boolean <- operator-symbol? first
-    compare first-infix?, 0/false
+    var first-operator?/eax: boolean <- operator-symbol? first
+    compare first-operator?, 0/false
     break-if-=
     var rest/eax: (addr cell) <- lookup *rest-ah
     {
@@ -452,7 +452,6 @@ fn operator-symbol? _x: (addr cell) -> _/eax: boolean {
   return 1/true
 }
 
-# just a short list of operator graphemes for now
 fn operator-grapheme? g: grapheme -> _/eax: boolean {
   # '$' is special and can be in either a symbol or operator; here we treat it as a symbol
   compare g, 0x25/percent
-- 
cgit 1.4.1-2-gfad0