diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2021-06-23 10:06:42 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2021-06-23 10:06:57 -0700 |
| commit | 6a65f6f23385b98f3f79a9b0258a7f349a84d7eb (patch) | |
| tree | 867f29ba4093b609a4e0531e97cb938b0649de34 /shell/infix.mu | |
| parent | ba0c41673b7cb024544c5e1ec1638cf2fb1f3725 (diff) | |
| download | mu-6a65f6f23385b98f3f79a9b0258a7f349a84d7eb.tar.gz | |
one more bug, and documentation for infix
One error message gets a bit worse.
Diffstat (limited to 'shell/infix.mu')
| -rw-r--r-- | shell/infix.mu | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/shell/infix.mu b/shell/infix.mu index 2164eb5c..ba96a81e 100644 --- a/shell/infix.mu +++ b/shell/infix.mu @@ -392,6 +392,7 @@ fn test-infix { check-infix "(+a)", "((+ a))", "F - test-infix/unary-operator-3" check-infix "-a", "(- a)", "F - test-infix/unary-operator-4" check-infix "a+b", "(+ a b)", "F - test-infix/no-spaces" + check-infix "3+1", "(+ 3 1)", "F - test-infix/no-spaces-starting-with-digit" check-infix "',a+b", "',(+ a b)", "F - test-infix/no-spaces-with-nested-quotes" check-infix "$a+b", "(+ $a b)", "F - test-infix/no-spaces-2" check-infix "-a+b", "(+ (- a) b)", "F - test-infix/unary-over-binary" @@ -584,7 +585,7 @@ fn check-infix actual: (addr array byte), expected: (addr array byte), message: var actual-tree-ah/esi: (addr handle cell) <- address actual-tree-h read-cell actual-buffer, actual-tree-ah, trace #? dump-trace-with-label trace, "infix" -#? dump-cell-from-cursor-over-full-screen actual-tree-ah, 7/fg 0/bg + dump-cell-from-cursor-over-full-screen actual-tree-ah, 7/fg 0/bg var _actual-tree/eax: (addr cell) <- lookup *actual-tree-ah var actual-tree/esi: (addr cell) <- copy _actual-tree # |