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/bootfuns.lisp.pamphlet | 8 --------
 1 file changed, 8 deletions(-)

(limited to 'src/interp/bootfuns.lisp.pamphlet')

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