From 47343d6fc2dcd7c9795f7a715a7cf1d862733c26 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 26 Oct 2011 02:58:22 +0000
Subject: 	* interp/postpar.boot (postSignature): Tidy. 	*
 interp/parse.boot (transCategoryItem): Remove as dead code. 	*
 interp/lisplib.boot (finalizeLisplib): Remove use of removeZeroOne. 	*
 interp/cattable.boot (categoryParts): Tidy.

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

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

diff --git a/src/interp/parse.boot b/src/interp/parse.boot
index c6e4bbe2..158e2dbf 100644
--- a/src/interp/parse.boot
+++ b/src/interp/parse.boot
@@ -378,28 +378,6 @@ transSeq l ==
   (y:= transSeq tail) is ["SEQ",:s] => ["SEQ",item,:s]
   ["SEQ",item,["exit",1,incExitLevel y]]
  
-transCategoryItem: %ParseForm -> %Form
-transCategoryItem x ==
-  x is ["SIGNATURE",lhs,rhs] =>
-    lhs is ["LISTOF",:y] =>
-      "append" /[transCategoryItem ["SIGNATURE",z,rhs] for z in y]
-    lhs isnt [.,:.] =>
-      lhs := washOperatorName lhs
-      rhs is ["Mapping",:m] =>
-        m is [.,"constant"] => [["SIGNATURE",lhs,[first m],"constant"]]
-        [["SIGNATURE",lhs,m]]
-      $transCategoryAssoc:= [[lhs,:rhs],:$transCategoryAssoc]
-      postError ['"  Invalid signature: ",x]
-    [op,:argl]:= lhs
-    extra := nil
-    if rhs is ["Mapping",:m] then
-      if rest m then extra:= rest m
-                 --should only be 'constant' or 'variable'
-      rhs:= first m
-    [["SIGNATURE",op,[rhs,:applySubst($transCategoryAssoc,argl)],:extra]]
-  [x]
- 
-
 superSub: (%Symbol, %List %Form ) -> %Form
 superSub(name,x) ==
   for u in x repeat y:= [:y,:u]
-- 
cgit v1.2.3