aboutsummaryrefslogtreecommitdiff
path: root/src/boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot')
-rw-r--r--src/boot/translator.boot9
1 files changed, 3 insertions, 6 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot
index 3aa31def..c964f48f 100644
--- a/src/boot/translator.boot
+++ b/src/boot/translator.boot
@@ -67,12 +67,9 @@ genOptimizeOptions stream ==
AxiomCore::%sysInit() ==
SETQ(_*LOAD_-VERBOSE_*,false)
if %hasFeature KEYWORD::GCL then
- SETF(symbolValue
- bfColonColon("COMPILER","*COMPILE-VERBOSE*"),false)
- SETF(symbolValue
- bfColonColon("COMPILER","SUPPRESS-COMPILER-WARNINGS*"),false)
- SETF(symbolValue
- bfColonColon("COMPILER","SUPPRESS-COMPILER-NOTES*"),true)
+ symbolValue(bfColonColon("COMPILER","*COMPILE-VERBOSE*")) := false
+ symbolValue(bfColonColon("COMPILER","SUPPRESS-COMPILER-WARNINGS*")) := false
+ symbolValue(bfColonColon("COMPILER","SUPPRESS-COMPILER-NOTES*")) := true
++ Make x, the current package
setCurrentPackage: %Thing -> %Thing