aboutsummaryrefslogtreecommitdiff
path: root/src/interp/sys-driver.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/sys-driver.boot')
-rw-r--r--src/interp/sys-driver.boot1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot
index fd08789b..6c9c3973 100644
--- a/src/interp/sys-driver.boot
+++ b/src/interp/sys-driver.boot
@@ -269,6 +269,7 @@ executeSpadScript(progname,options,file) ==
-- Accomodate for testsuite stream.
if testing then
set ["message","testing","on"]
+ sayKeyedMsg('S2IZ0100,[NAMESTRING canonicalFilename file])
CATCH($intCoerceFailure,
CATCH($SpadReaderTag,read [file]))
coreQuit (errorCount()> 0 => 1; 0)