From 155501c7ef2f4d48f22883a4bee1651b2a51799a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 26 Aug 2007 18:41:34 +0000
Subject: 	* sys-globals.boot ($IOindex): Move from
 bootfuns.lisp.pamphlet. 	($inputPromptType): Likewise. 	($whereList):
 Likewise. 	($warningStack): Likewise.

	* patches.lisp.pamphlet (|$inputPromptType|): Don't set here.

	* bootfuns.lisp.pamphlet ($Type): Remove.
	(|$warningStack|): Move to sys-globals.boot.
	(|$whereList|): Likewise.
	(|$inputPromptType|): Likewise.
	(|$IOindex|): Likewise.
---
 src/interp/ChangeLog              | 15 +++++++++++++++
 src/interp/bootfuns.lisp.pamphlet |  8 --------
 src/interp/patches.lisp.pamphlet  |  1 -
 src/interp/sys-globals.boot       | 13 +++++++++++++
 4 files changed, 28 insertions(+), 9 deletions(-)

(limited to 'src')

diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index 79897c16..be8b92e5 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,3 +1,18 @@
+2007-08-26  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
+	* sys-globals.boot ($IOindex): Move from bootfuns.lisp.pamphlet.
+	($inputPromptType): Likewise.
+	($whereList): Likewise.
+	($warningStack): Likewise.
+
+	* patches.lisp.pamphlet (|$inputPromptType|): Don't set here.
+
+	* bootfuns.lisp.pamphlet ($Type): Remove.
+	(|$warningStack|): Move to sys-globals.boot.
+	(|$whereList|): Likewise.
+	(|$inputPromptType|): Likewise.
+	(|$IOindex|): Likewise.
+
 2007-08-26  Gabriel Dos Reis  <gdr@cs.tamu.edu>
 
 	* Makefile.pamphlet (<<apply.o (AUTO from OUT)>>): Remove.
diff --git a/src/interp/bootfuns.lisp.pamphlet b/src/interp/bootfuns.lisp.pamphlet
index af96a757..93b4222b 100644
--- a/src/interp/bootfuns.lisp.pamphlet
+++ b/src/interp/bootfuns.lisp.pamphlet
@@ -249,7 +249,6 @@ offer it as extensions.
 (def-boot-var |$traceNoisely|			    "Interpreter>Trace.boot")
 (def-boot-var |$TranslateOnly|			    "???")
 (def-boot-var |$tripleCache|			    "Compiler>Compiler.boot")
-(def-boot-var $Type				    "???")
 
 (def-boot-val |$updateCatTableIfTrue| T	   "update category table on load")
 (def-boot-var |$updateIfTrue|
@@ -258,13 +257,6 @@ offer it as extensions.
 	  "Determines whether to use BF as default floating point type.")
 (def-boot-val |$useDCQnotLET| () "checked in DEF-LET for use of DCQ")
 (def-boot-var |$VariableCount|			    "???")
-(def-boot-var |$warningStack|			    "???")
-(def-boot-val |$whereList| () "referenced in format boot formDecl2String")
-
-
-(def-boot-val |$inputPromptType| '|step|  "checked in MKPROMPT")
-(def-boot-val |$IOindex| 0		   "step counter")
-
 @
 \eject
 \begin{thebibliography}{99}
diff --git a/src/interp/patches.lisp.pamphlet b/src/interp/patches.lisp.pamphlet
index 142d19cc..0ca525ee 100644
--- a/src/interp/patches.lisp.pamphlet
+++ b/src/interp/patches.lisp.pamphlet
@@ -138,7 +138,6 @@ previous definition.
 
 (setq |$useInternalHistoryTable| T)
 (defvar |$internalHistoryTable| ())
-(setq |$inputPromptType| '|step|)
 (setq |nullstream| '|nullstream|)
 (setq |nonnullstream| '|nonnullstream|)
 (defun |cpCms| (prefix &optional (string (|getSystemCommandLine|)))
diff --git a/src/interp/sys-globals.boot b/src/interp/sys-globals.boot
index c7fa340a..7f78371c 100644
--- a/src/interp/sys-globals.boot
+++ b/src/interp/sys-globals.boot
@@ -102,3 +102,16 @@ $evalDomain := false
 
 ++
 $exitModeStack := []
+
+++
+$IOindex := 0
+
+++
+$inputPromptType := "step"
+
+++
+$whereList := []
+
+++
+$warningStack := []
+
-- 
cgit v1.2.3