From 7827db4dfa2974604baf823caf3f8be7d8e22d9d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 3 Feb 2008 00:26:45 +0000
Subject: 	* interp/setq.lisp: Remove redundant assignments.

---
 src/interp/br-util.boot |  1 -
 src/interp/setq.lisp    | 27 ---------------------------
 2 files changed, 28 deletions(-)

(limited to 'src')

diff --git a/src/interp/br-util.boot b/src/interp/br-util.boot
index 7fa3fd8f..2ce4347c 100644
--- a/src/interp/br-util.boot
+++ b/src/interp/br-util.boot
@@ -64,7 +64,6 @@ $docTable := nil             --cache for documentation table
 $conArgstrings := nil        --bound by conPage so that kPage
                              --will display arguments if given
 $conformsAreDomains  := false     --are all arguments of a constructor given?
-$returnNowhereFromGoGet := false  --special branch out for goget for browser
 $dbDataFunctionAlist := nil       --set by dbGatherData
 $domain   := nil             --bound in koOps
 $infovec  := nil             --bound in koOps
diff --git a/src/interp/setq.lisp b/src/interp/setq.lisp
index abda3b8f..ef10bad7 100644
--- a/src/interp/setq.lisp
+++ b/src/interp/setq.lisp
@@ -46,33 +46,6 @@
 (defvar MARG 0)
   ;" Margin for testing by ?OP"
 
-(SETQ |$returnNowhereFromGoGet| NIL)
-
-(SETQ |S:SPADTOK| 'SPADSYSTOK)
-(SETQ RLGENSYMFG NIL)
-(SETQ RLGENSYMLST NIL)
-(SETQ XTOKENREADER 'SPADTOK)
-(SETQ OPASSOC NIL)
-(SETQ SPADSYSKEY '(EOI EOL))
-
-;; These are for the output routines in OUT BOOT
-
-(SETQ $MARGIN 3)
-(SETQ *TALLPAR NIL)
-(SETQ ALLSTAR NIL)
-(SETQ COLON ":")
-(SETQ COMMA ",")
-(SETQ DASH "-")
-(SETQ DOLLAR "$")
-(SETQ EQSIGN "=")
-(SETQ LPAR "(")
-(SETQ MATBORCH "*")
-(SETQ PERIOD ".")
-(SETQ PLUSS "+")
-(SETQ RPAR ")")
-(SETQ SLASH "/")
-(SETQ STAR "*")
-
 ;; These were originally in INIT LISP
 
 (SETQ |$functorForm| NIL)
-- 
cgit v1.2.3