aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/ChangeLog9
-rw-r--r--src/interp/int-top.boot3
-rw-r--r--src/interp/msg.boot6
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)) =>