diff options
Diffstat (limited to 'src/interp/g-error.boot')
| -rw-r--r-- | src/interp/g-error.boot | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot index d18f20ea..914bd61f 100644 --- a/src/interp/g-error.boot +++ b/src/interp/g-error.boot @@ -103,11 +103,18 @@ errorSupervisor1(errorType,errorMsg,$BreakMode) == sayErrorly(errorLabel, msg) handleLispBreakLoop($BreakMode) +enterBreak() == + SETQ(_*PRINT_-ARRAY_*,true) + SETQ(_*PRINT_-CIRCLE_*,true) + SETQ(_*PRINT_-LENGTH_*,6) + SETQ(_*PRINT_-READABLY_*,false) + BREAK() + handleLispBreakLoop($BreakMode) == finishLine $OutputStream $BreakMode = 'break => sayBrightly '" " - BREAK() + enterBreak() $BreakMode = 'query => gotIt := nil while not gotIt repeat @@ -130,7 +137,7 @@ handleLispBreakLoop($BreakMode) == '"when you are ready to continue processing where you ",'"%l",_ '" interrupted the system, enter",:bright '"(TOP)",_ '"when you wish to return",'"%l",'" to top level.",'"%l",'"%l"] - BREAK() + enterBreak() sayBrightly '" Processing will continue where it was interrupted." THROW($SpadReaderTag, nil) |