diff options
author | dos-reis <gdr@axiomatics.org> | 2011-07-02 08:04:49 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-07-02 08:04:49 +0000 |
commit | cd75300236a7e0bd4b2ba0818721deb92c522aa7 (patch) | |
tree | dd43b8c8330e9df4beefac62e7108409c0dde687 /src/interp/msg.boot | |
parent | 5e63328f3bcd8b1d1cc7d59350f92cc4185df7c0 (diff) | |
download | open-axiom-cd75300236a7e0bd4b2ba0818721deb92c522aa7.tar.gz |
* interp/macros.lisp (sayALGEBRA): Remove as duplicate of sayMSG.
* interp/i-output.boot: Replace sayALGBEBRA with sayMSG.
* interp/msg.boot (ncHardError): Remove dead variable ergMsg.
(ncBug): Likewise.
Diffstat (limited to 'src/interp/msg.boot')
-rw-r--r-- | src/interp/msg.boot | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/interp/msg.boot b/src/interp/msg.boot index fcffa99e..cb84d186 100644 --- a/src/interp/msg.boot +++ b/src/interp/msg.boot @@ -65,7 +65,7 @@ $ncMsgList := [] ncSoftError(pos, erMsgKey, erArgL,:optAttr) == $newcompErrorCount := $newcompErrorCount + 1 desiredMsg erMsgKey => - processKeyedError _ + processKeyedError msgCreate ('error, pos, erMsgKey, erArgL, $compErrorPrefix,optAttr) -- The program being compiled is seriously incorrect. @@ -73,14 +73,14 @@ ncSoftError(pos, erMsgKey, erArgL,:optAttr) == ncHardError(pos, erMsgKey, erArgL,:optAttr) == $newcompErrorCount := $newcompErrorCount + 1 desiredMsg erMsgKey => - erMsg := processKeyedError _ + processKeyedError msgCreate('error,pos,erMsgKey, erArgL, $compErrorPrefix,optAttr) ncError() -- Bug in the compiler: something which shouldn't have happened did. ncBug (erMsgKey, erArgL,:optAttr) == $newcompErrorCount := $newcompErrorCount + 1 - erMsg := processKeyedError _ + processKeyedError msgCreate('bug,$nopos, erMsgKey, erArgL,$compBugPrefix,optAttr) BREAK() ncAbort() @@ -331,13 +331,15 @@ msgOutputter msg == st := flowSegmentedMsg(st,$LOGLENGTH,0) alreadyOpened := alreadyOpened? msg -toScreen? msg == getMsgToWhere msg ~= 'fileOnly +toScreen? msg == + getMsgToWhere msg ~= 'fileOnly + toFile? msg == - getMsgToWhere msg ~= 'screenOnly + getMsgToWhere msg ~= 'screenOnly alreadyOpened? msg == - not msgImPr? msg + not msgImPr? msg getStFromMsg msg == $optKeyBlanks : local := '"" --set in setOptKeyBlanks() |