about summary refs log tree commit diff stats
path: root/shell/primitives.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-07-05 22:06:37 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-07-05 22:06:37 -0700
commit468b0d979fe2e20f146d19934d22ccb566c04d9d (patch)
tree11ecf447fe24251bb0fc2063c3092cfed54efdaa /shell/primitives.mu
parent5d614af9553d19bf8c9f8b3344f14e681978c96b (diff)
downloadmu-468b0d979fe2e20f146d19934d22ccb566c04d9d.tar.gz
shell: fix clear on screens
Broken since commit c95648c96 on Jul 3.

Unclear what test to write for this. Should clear-stream check for NULL?
Should apply-clear?
Diffstat (limited to 'shell/primitives.mu')
-rw-r--r--shell/primitives.mu2
1 files changed, 1 insertions, 1 deletions
diff --git a/shell/primitives.mu b/shell/primitives.mu
index 30c4864e..5f78c313 100644
--- a/shell/primitives.mu
+++ b/shell/primitives.mu
@@ -1646,7 +1646,7 @@ fn apply-clear _args-ah: (addr handle cell), out: (addr handle cell), trace: (ad
   var first-type/ecx: (addr int) <- get first, type
   compare *first-type, 3/stream
   {
-    break-if-=
+    break-if-!=
     var stream-data-ah/eax: (addr handle stream byte) <- get first, text-data
     var _stream-data/eax: (addr stream byte) <- lookup *stream-data-ah
     var stream-data/ebx: (addr stream byte) <- copy _stream-data