diff options
Diffstat (limited to 'src/interp/sys-driver.boot')
| -rw-r--r-- | src/interp/sys-driver.boot | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/interp/sys-driver.boot b/src/interp/sys-driver.boot index 4d21a797..7e3284fd 100644 --- a/src/interp/sys-driver.boot +++ b/src/interp/sys-driver.boot @@ -187,10 +187,10 @@ initializeGlobalState() == $currentLine := nil $NEWSPAD := true $SPAD := true - $buildingSystemAlgebra := - getOptionValue(Option '"system-algebra",%systemOptions()) - $verbose := getOptionValue(Option '"verbose",%systemOptions()) - $bootStrapMode := getOptionValue(Option '"bootstrap",%systemOptions()) + $buildingSystemAlgebra := getOptionValue "system-algebra" + $verbose := getOptionValue "verbose" + $bootStrapMode := getOptionValue "bootstrap" + $compileExportsOnly := getOptionValue "exports-only" GCMSG(NIL) if have_to then $superHash := MAKE_-HASHTABLE('UEQUAL) @@ -268,8 +268,7 @@ compileSpadLibrary(progname,options,file) == $verbose := false $ProcessInteractiveValue := true $PrintCompilerMessageIfTrue := $verbose - setCompilerOptimizations - getOptionValue(Option '"optimize",%systemOptions()) + setCompilerOptimizations getOptionValue "optimize" CATCH($intTopLevel, CATCH("SpadCompileItem", CATCH($SpadReaderTag,compiler [file]))) |