aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/ChangeLog15
-rw-r--r--src/interp/bootfuns.lisp.pamphlet8
-rw-r--r--src/interp/patches.lisp.pamphlet1
-rw-r--r--src/interp/sys-globals.boot13
4 files changed, 28 insertions, 9 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index 79897c16..be8b92e5 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,5 +1,20 @@
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.
(<<bootlex.o (AUTO from OUT)>>): Likewise.
(<<def.o (AUTO from OUT)>>): Likewise.
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 := []
+