diff options
Diffstat (limited to 'src/boot/translator.boot.pamphlet')
| -rw-r--r-- | src/boot/translator.boot.pamphlet | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/boot/translator.boot.pamphlet b/src/boot/translator.boot.pamphlet index d6a9317e..23249648 100644 --- a/src/boot/translator.boot.pamphlet +++ b/src/boot/translator.boot.pamphlet @@ -113,6 +113,13 @@ import '"ast" )package "BOOTTRAN" ++++ True if we are translating code written in Old Boot. +$translatingOldBoot := false + +AxiomCore::%sysInit() == + if cdr ASSOC(Option '"boot", %systemOptions()) = '"old" + then $translatingOldBoot := true + -- Make x, the current package setCurrentPackage x == SETQ(_*PACKAGE_*,x) |