diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-07-04 06:36:35 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-07-04 06:36:35 +0000 |
| commit | 2f5255f62b85b026dcf11adafff07ac2f254a41c (patch) | |
| tree | 0cf105b0d3dfa04b44315f2f31275f3feb66db67 /src/interp | |
| parent | dc5f09ca9fe80896ec7fd8677a3e517ce9213285 (diff) | |
| download | open-axiom-2f5255f62b85b026dcf11adafff07ac2f254a41c.tar.gz | |
* interp/int-top.boot (SpadInterpretStream): Remove binding of
$erMsgToss, as it is never assigned to.
(phIntReportMsgs): Adjust.
(phReportMsgs): Likewise.
* interp/msg.boot (showMsgPos?): Likewise.
(initImPr): Likewise.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/int-top.boot | 3 | ||||
| -rw-r--r-- | src/interp/msg.boot | 6 |
2 files changed, 3 insertions, 6 deletions
diff --git a/src/interp/int-top.boot b/src/interp/int-top.boot index 94e83572..f0b6eb22 100644 --- a/src/interp/int-top.boot +++ b/src/interp/int-top.boot @@ -130,7 +130,6 @@ SpadInterpretStream(str, source, interactive?) == $lastPos : local := $nopos ------------>!!! - $erMsgToss : local := false --------------->!!! $ncMsgList : local := nil $systemCommandFunction : local := function InterpExecuteSpadSystemCommand @@ -266,7 +265,6 @@ phInterpret carrier == --% phReportMsgs: carrier[lines,messages,..]-> carrier[lines,messages,..] phIntReportMsgs(carrier, interactive?) == - $erMsgToss => 'OK lines := ncEltQ(carrier, 'lines) msgs := ncEltQ(carrier, 'messages) nerr := #msgs @@ -399,7 +397,6 @@ phMacro carrier == --% phReportMsgs: carrier[lines,messages,..]-> carrier[lines,messages,..] phReportMsgs(carrier, interactive?) == - $erMsgToss => 'OK lines := ncEltQ(carrier, 'lines) msgs := ncEltQ(carrier, 'messages) nerr := #msgs diff --git a/src/interp/msg.boot b/src/interp/msg.boot index cb84d186..a3029fcd 100644 --- a/src/interp/msg.boot +++ b/src/interp/msg.boot @@ -389,7 +389,7 @@ getPosStL msg == '"" showMsgPos? msg == - $erMsgToss or (not msgImPr? msg and not msgLeader? msg) + not msgImPr? msg and not msgLeader? msg remFile positionList == @@ -448,8 +448,8 @@ isKeyQualityP (key,qual) == --% these functions handle the attributes initImPr msg == - $erMsgToss or symbolMember? (getMsgTag msg,$imPrTagGuys) => - setMsgUnforcedAttr (msg,'$imPrGuys,'imPr) + symbolMember?(getMsgTag msg,$imPrTagGuys) => + setMsgUnforcedAttr (msg,'$imPrGuys,'imPr) initToWhere msg == member ('trace,getMsgCatAttr (msg,'catless)) => |