From 468b0d979fe2e20f146d19934d22ccb566c04d9d Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Mon, 5 Jul 2021 22:06:37 -0700
Subject: [PATCH] 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?
---
 shell/primitives.mu | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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