From 19d2e6423a1a4e7f303b53f1c550cf6a60e36fe8 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Mon, 2 Aug 2021 10:27:58 -0700 Subject: . --- shell/evaluate.mu | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'shell') 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 -- cgit 1.4.1-2-gfad0