From f3e1316f943136ab1428ff1caea540c85585bb16 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 27 Aug 2007 06:41:59 +0000
Subject: 	* bootfuns.lisp.pamphlet (|$forceDatabaseUpdate|): Move to 
 sys-globals.boot. 	(|$form|): Likewise. 	(|$fromSpadTrace|): Likewise 
 (|$genSDVar|): Likewise. 	(|$Index|): Likewise. 	(|$inLispVM|):
 Likewise. 	(|$insideCapsuleFunctionIfTrue|): Likewise. 
 (|$insideCategoryIfTrue|): Likewise. 
 (|$insideCoerceInteractiveHardIfTrue|): Likewise. 	(|$insideCompTypeOf|):
 Likewise. 	(|$insideConstructIfTrue|): Likewise. 
 (|$insideExpressionIfTrue|): Likewise. 	(|$insideFunctorIfTrue|):
 Likewise. 	(|$insideWhereIfTrue|): Likewise. 	(|$instantRecord|):
 Likewise. 	(|$InteractiveFrame|): Likewise. 	(|$InteractiveMode|):
 Likewise. 	(|$InteractiveTimingStatsIfTrue|): Likewise.

	(|$genFVar|): Remove.
	(|$ignoreCommentsIfTrue|): Likewise.
	(|$InteractiveModemapFrame|): Likewise.

	* setq.lisp.pamphlet (|$inLispVM|): Remove.
	(|$InteractiveMode|): Likewise.
	(|$forceDatabaseUpdate|): Likewise.
	(|$InteractiveFrame|): Likewise.
	(|$form|): Likewise.
	(|$Index|): Likewise.

	* sys-constants.boot ($ExitMode): Define.
	($exitMode): Move from bootfuns.lisp.pamphlet.

	* sys-globals.boot ($form): Likewise.
	($fromSpadTrace): Likewise.
	($genSDVar): Likewise.
	($Index): Likewise.
	($inLispVM): Likewise.
	($insideCapsuleFunctionIfTrue): Likewise.
	($insideCategoryIfTrue): Likewise.
	($insideCoerceInteractiveHardIfTrue): Likewise.
	($insideConstructIfTrue): Likewise.
	($insideExpressionIfTrue): Likewise.
	($insideFunctorIfTrue): Likewise.
	($insideWhereIfTrue): Likewise.
	($instantRecord): Likewise.
	($InteractiveFrame): Likewise.
	($(InteractiveMode): Likewise.
	($InteractiveTimingStatsIftrue): Likewise.
	($forceDatabaseUpdate): Likewise.

	* spad.lisp.pamphlet (S-PROCESS): Don't bind $exitMode here.

	* bootfuns.lisp.pamphlet (|$exitMode|): Move to sys-constants.boot

	* wi2.boot.pamphlet (compDefineFunctor1): Likewise.

	* spad.lisp.pamphlet (S-PROCESS): Likewise.

	* define.boot.pamphlet (compDefineFunctor1): Remove unused
	$genFVar.

	* varini.boot.pamphlet ($ExitMode): Don't double define here.
---
 src/interp/define.boot.pamphlet | 1 -
 1 file changed, 1 deletion(-)

(limited to 'src/interp/define.boot.pamphlet')

diff --git a/src/interp/define.boot.pamphlet b/src/interp/define.boot.pamphlet
index 899fbe40..59cf4859 100644
--- a/src/interp/define.boot.pamphlet
+++ b/src/interp/define.boot.pamphlet
@@ -385,7 +385,6 @@ compDefineFunctor1(df is ['DEF,form,signature,$functorSpecialCases,body],
       $QuickCode = true => 'QSETREFV
       'SETELT
     $TOP__LEVEL: local
-    $genFVar: local:= 0
     $genSDVar: local:= 0
     originale:= $e
     [$op,:argl]:= form
-- 
cgit v1.2.3