From 80f5cef01abdaee3b8c818ea07f534570e94c6d4 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 14 Oct 2007 03:36:45 +0000
Subject: 	* ast.boot.pamphlet (bfGetOldBootName): New. 
 (bfSameMeaning): Likewise. 	(bfReName): Use them. 	* parser.boot.pamphlet
 (bpCompare): Tidy. 	* tokens.boot.pamphlet: Rename NE to SHOENE.  Record
 Old Boot 	renaming tokens. Likewise for tokens with same meaning. 
 * translator.boot.pamphlet (AxiomCore::%sysInit): New. 
 ($translatingOldBoot): Likewise.

---
 src/boot/translator.boot.pamphlet | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/boot/translator.boot.pamphlet')

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)
-- 
cgit v1.2.3