aboutsummaryrefslogtreecommitdiff
path: root/src/interp/int-top.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/int-top.boot')
-rw-r--r--src/interp/int-top.boot3
1 files changed, 0 insertions, 3 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