diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-01 17:26:32 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-01 17:26:32 +0000 |
| commit | c32856c7077d6220b6785b1e6e819b41ea4244be (patch) | |
| tree | c2d1cb1eb2e989b78358a19a5795cd7533a42cd6 /src/interp | |
| parent | 1cde83a3abd3d16e32bce7ec96629db339d60fa8 (diff) | |
| download | open-axiom-c32856c7077d6220b6785b1e6e819b41ea4244be.tar.gz | |
* interp/sys-driver.boot (executeSpadScript): Inform the system
that we are going to read from a file.
* interp/g-error.boot(handleLispBreakLoop): Return to reading from
file if that was what were doing.
* input/Makefile.in (TESTSYS): Use driver and --test option.
(%.output): Simplify.
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() |