diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/sys-driver.boot | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index f2fe5d7f..e6faafe4 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -53,6 +53,8 @@ $verboseInterprerter := true $PrintCompilerMessageIfTrue := true +++ +$options := [] +++ Initialization routine run by the core system before handing off +++ to the interpreter or compiler. @@ -191,10 +193,14 @@ executeSpadScript(progname,options,file) == $BOOT := NIL $NEWSPAD := true $SPAD := true - -- $EchoLines := false - -- ECHO_-META : fluid := false - -- $verboseInterprerter := false - -- $ProcessInteractiveValue := true + if getOption(Option '"verbose",%systemOptions()) then + $verboseInterprerter := true + $options := [] + $ProcessInteractiveValue := false + else + $verboseInterprerter := false + $options := [["quiet"]] + $ProcessInteractiveValue := true CATCH($intCoerceFailure, CATCH($intSpadReader,read [file])) coreQuit (errorCount()> 0 => 1; 0) |