diff options
Diffstat (limited to 'shell/evaluate.mu')
| -rw-r--r-- | shell/evaluate.mu | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/shell/evaluate.mu b/shell/evaluate.mu index 3de0f1eb..e4034f95 100644 --- a/shell/evaluate.mu +++ b/shell/evaluate.mu @@ -9,13 +9,9 @@ fn evaluate _in-ah: (addr handle cell), _out-ah: (addr handle cell), env-h: (han # stack overflow? # disable when enabling Really-debug-print check-stack { - 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 + var running-tests?/eax: boolean <- running-tests? + compare running-tests?, 0/false + break-if-!= show-stack-state } # show intermediate progress on screen if necessary |