about summary refs log tree commit diff stats
path: root/shell
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-04-25 22:07:57 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-04-25 22:08:00 -0700
commit24a6f99107827efd29fa2320dfea3941cee0abc3 (patch)
tree8a9d7d4ee2bb4a75582b15a74287191d7473f22e /shell
parent6e0f0bdf50e248f68f5b5df2d7163d854b893174 (diff)
downloadmu-24a6f99107827efd29fa2320dfea3941cee0abc3.tar.gz
failing tests not printing since show-stack-state
Diffstat (limited to 'shell')
-rw-r--r--shell/evaluate.mu11
1 files changed, 10 insertions, 1 deletions
diff --git a/shell/evaluate.mu b/shell/evaluate.mu
index 30fbe9fe..c08da72d 100644
--- a/shell/evaluate.mu
+++ b/shell/evaluate.mu
@@ -5,7 +5,16 @@
 fn evaluate _in: (addr handle cell), out: (addr handle cell), env-h: (handle cell), globals: (addr global-table), trace: (addr trace), screen-cell: (addr handle cell), keyboard-cell: (addr handle cell), call-number: int {
   # stack overflow?   # disable when enabling Really-debug-print
   check-stack
-  show-stack-state
+  {
+    var screen-cell/eax: (addr handle cell) <- copy screen-cell
+    compare screen-cell, 0
+    break-if-=
+    var screen-cell-addr/eax: (addr cell) <- lookup *screen-cell
+    compare screen-cell-addr, 0
+    break-if-=
+    # if screen-cell exists, we're probably not in a test
+    show-stack-state
+  }
   # errors? skip
   {
     compare trace, 0