diff options
| -rw-r--r-- | shell/infix.mu | 9 |
1 files changed, 4 insertions, 5 deletions
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 |