diff options
| -rw-r--r-- | src/ChangeLog | 9 | ||||
| -rw-r--r-- | src/interp/int-top.boot | 3 | ||||
| -rw-r--r-- | src/interp/msg.boot | 6 |
3 files changed, 12 insertions, 6 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 2363b4ca..25ec1ab8 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,12 @@ +2011-07-04 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * 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. + 2011-07-03 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/vmlisp.lisp (PRINTEXP): Remove. 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)) => |