diff options
Diffstat (limited to 'src/interp/g-error.boot')
| -rw-r--r-- | src/interp/g-error.boot | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot index b88206b8..4964e4da 100644 --- a/src/interp/g-error.boot +++ b/src/interp/g-error.boot @@ -188,6 +188,7 @@ systemErrorHandler c == $BreakMode = "validate" => systemError ERROR_-FORMAT('"~a",[c]) not $inLispVM and $BreakMode in '(nobreak query resume) => + TYPEP(c,'CONTROL_-ERROR) => keyedSystemError('S2GE0020,nil) LET(($inLispVM true)(), systemError ERROR_-FORMAT('"~a",[c])) $BreakMode = "letPrint2" => $BreakMode := nil |