From 39c21d65868a04d915dc03b283839e221f37d498 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 24 Nov 2011 00:14:26 +0000
Subject: 	* interp/define.boot ($CheckVectorList): Remove. 
 (compDefineFunctor1): Do not bind it. 	(reportOnFunctorCompilation): Do not
 call displayMissingFunctions. 	(displayMissingFunctions): Remove as useless. 
 * interp/functor.boot (SetFunctionSlots): Do not set slot in the 	first
 vector of $catvecList. 	* interp/nruncomp.boot (buildFunctor): Remove
 makeCatvecCode, 	emptyVector, domainShell.  Do not call NRTcheckVector.
 	(NRTcheckVector): Remove as useless.

---
 src/interp/define.boot | 22 ----------------------
 1 file changed, 22 deletions(-)

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

diff --git a/src/interp/define.boot b/src/interp/define.boot
index 75e356db..9bddd837 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -64,7 +64,6 @@ $forceAdd := false
 $functionStats := nil
 $functorStats := nil
 
-$CheckVectorList := []
 $functorTarget := nil
 $condAlist := []
 $uncondAlist := []
@@ -1373,7 +1372,6 @@ compDefineFunctor1(df is ['DEF,form,signature,body],
          --Set in doIt, accessed in the compiler - compNoStacking
     $functorForm: local := nil
     $functorLocalParameters: local := nil
-    $CheckVectorList: local := nil
     $getDomainCode: local := nil -- code for getting views
     $insideFunctorIfTrue: local:= true
     $genSDVar: local:= 0
@@ -1512,7 +1510,6 @@ compFunctorBody(db,body,m,e) ==
   T
  
 reportOnFunctorCompilation() ==
-  displayMissingFunctions()
   if $semanticErrorStack then sayBrightly '" "
   displaySemanticErrors()
   if $warningStack then sayBrightly '" "
@@ -1525,25 +1522,6 @@ reportOnFunctorCompilation() ==
   sayBrightly '" "
   'done
  
-displayMissingFunctions() ==
-  null $CheckVectorList => nil
-  loc := nil              -- list of local operation signatures
-  exp := nil              -- list of exported operation signatures
-  for [[op,sig,:.],:pred] in $CheckVectorList  | not pred repeat
-    not symbolMember?(op,$formalArgList) and getXmode(op,$e) is ['Mapping,:.] =>
-      loc := [[op,sig],:loc]
-    exp := [[op,sig],:exp]
-  if loc then
-    sayBrightly ['"%l",:bright '"  Missing Local Functions:"]
-    for [op,sig] in loc for i in 1.. repeat
-      sayBrightly ['"      [",i,'"]",:bright op,
-        ": ",:formatUnabbreviatedSig sig]
-  if exp then
-    sayBrightly ['"%l",:bright '"  Missing Exported Functions:"]
-    for [op,sig] in exp for i in 1.. repeat
-      sayBrightly ['"      [",i,'"]",:bright op,
-        ": ",:formatUnabbreviatedSig sig]
- 
 --% domain view code
  
 makeFunctorArgumentParameters(argl,sigl,target) ==
-- 
cgit v1.2.3