diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/g-error.boot | 2 | ||||
| -rw-r--r-- | src/interp/sys-driver.boot | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/g-error.boot b/src/interp/g-error.boot index 5f31421d..b88206b8 100644 --- a/src/interp/g-error.boot +++ b/src/interp/g-error.boot @@ -132,7 +132,7 @@ handleLispBreakLoop($BreakMode) == sayBrightly '" Processing will continue where it was interrupted." THROW($SpadReaderTag, nil) - $BreakMode = 'resume => + $BreakMode = 'resume or $ReadingFile => returnToReader() returnToTopLevel() diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 80512847..ab3620e9 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -248,6 +248,7 @@ initializeGlobalState() == executeSpadScript(progname,options,file) == -- By default, we want script execution to be as quiet as possible. $displayStartMsgs: local := false + $ReadingFile: local := true -- $ProcessInteractiveValue: local := true $verbose: local := false initializeGlobalState() |