From 19d2e6423a1a4e7f303b53f1c550cf6a60e36fe8 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Mon, 2 Aug 2021 10:27:58 -0700
Subject: [PATCH] .

---
 shell/evaluate.mu | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/shell/evaluate.mu b/shell/evaluate.mu
index c78f1e23..c870782d 100644
--- a/shell/evaluate.mu
+++ b/shell/evaluate.mu
@@ -15,7 +15,11 @@ fn evaluate _in-ah: (addr handle cell), _out-ah: (addr handle cell), env-h: (han
     var running-tests?/eax: boolean <- running-tests?
     compare running-tests?, 0/false
     break-if-!=
+    var old-x/eax: int <- copy 0
+    var old-y/ecx: int <- copy 0
+    old-x, old-y <- cursor-position 0/screen
     show-stack-state
+    set-cursor-position 0/screen, old-x, old-y
   }
   # show intermediate progress on screen if necessary
   # treat input at the real keyboard as interrupting