diff options
author | dos-reis <gdr@axiomatics.org> | 2012-02-11 20:41:48 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-02-11 20:41:48 +0000 |
commit | 14cbb5c5efc0719d27a30708f63fa869df02646d (patch) | |
tree | 7912e2b56874ab1aa5d9f3b5be54705cbea2ed0d /src/interp/br-data.boot | |
parent | 39504f8219eb6e7319e25323b3b155e854d58a21 (diff) | |
download | open-axiom-14cbb5c5efc0719d27a30708f63fa869df02646d.tar.gz |
* interp/br-data.boot (getParentsFor): Move to define.boot.
(explodeIfs): Likewise.
(getParentsForDomain): Tidy.
Diffstat (limited to 'src/interp/br-data.boot')
-rw-r--r-- | src/interp/br-data.boot | 5 |
1 files changed, 2 insertions, 3 deletions
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 |