diff options
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)) => |