From 14cbb5c5efc0719d27a30708f63fa869df02646d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 11 Feb 2012 20:41:48 +0000
Subject: 	* interp/br-data.boot (getParentsFor): Move to define.boot. 
 (explodeIfs): Likewise. 	(getParentsForDomain): Tidy.

---
 src/interp/br-data.boot | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/interp/br-data.boot')

diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot
index 0de38303..6c8c5d38 100644
--- a/src/interp/br-data.boot
+++ b/src/interp/br-data.boot
@@ -523,11 +523,10 @@ getParentsForDomain domname  == --called by parentsOf
 folks u == --called by getParents and getParentsForDomain
   u isnt [.,:.] => nil
   u is [op,:v] and op in '(Join PROGN)
-    or u is ['CATEGORY,a,:v] => "append"/[folks x for x in v]
+    or u is ['CATEGORY,.,:v] => "append"/[folks x for x in v]
   u is ['SIGNATURE,:.] => nil
-  u is ['TYPE,:.] => nil
   u is ['ATTRIBUTE,a] =>
-    cons? a and constructor? opOf a => folks a
+    a is [.,:.] and constructor? a.op => folks a
     nil
   u is ['IF,p,q,r] =>
     q1 := folks q
-- 
cgit v1.2.3