diff options
Diffstat (limited to 'src/interp/g-error.boot')
| -rw-r--r-- | src/interp/g-error.boot | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot index 30d55035..5f31421d 100644 --- a/src/interp/g-error.boot +++ b/src/interp/g-error.boot @@ -149,20 +149,6 @@ returnToReader() == THROW($SpadReaderTag, nil) sayErrorly(errorLabel, msg) == - $saturn => saturnSayErrorly(errorLabel, msg) - sayErrorly1(errorLabel, msg) - -saturnSayErrorly(errorLabel, msg) == - SETQ($OutputStream, $texOutputStream) - old := pushSatOutput("line") - sayString '"\bgroup\color{red}" - sayString '"\begin{verbatim}" - sayErrorly1(errorLabel, msg) - sayString '"\end{verbatim}" - sayString '"\egroup" - popSatOutput(old) - -sayErrorly1(errorLabel, msg) == sayBrightly '" " if $testingSystem then sayMSG $testingErrorPrefix sayBrightly ['" >> ",errorLabel,'":"] |