diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-14 15:51:47 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-14 15:51:47 +0000 |
| commit | b3a46c91b4848693476332bcd32350926396783d (patch) | |
| tree | 48da8c18f9908bfeef643b77dd1dc7baa1a7ecaf /src/interp | |
| parent | c582247ba667504452862dc5f8a007999ea367ca (diff) | |
| download | open-axiom-b3a46c91b4848693476332bcd32350926396783d.tar.gz | |
* algebra/array2.spad.pamphlet (TwoDimensionalArrayCategory): Test
for BasicType satisfaction instead of existence of =.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/g-error.boot | 11 | ||||
| -rw-r--r-- | src/interp/msg.boot | 2 |
2 files changed, 10 insertions, 3 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) diff --git a/src/interp/msg.boot b/src/interp/msg.boot index 9e14d732..8670f5ae 100644 --- a/src/interp/msg.boot +++ b/src/interp/msg.boot @@ -82,7 +82,7 @@ ncBug (erMsgKey, erArgL,:optAttr) == $newcompErrorCount := $newcompErrorCount + 1 processKeyedError msgCreate('bug,$nopos, erMsgKey, erArgL,$compBugPrefix,optAttr) - BREAK() + enterBreak() ncAbort() --% Lower level functions |