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 | |
| 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')
| -rw-r--r-- | src/ChangeLog | 1 | ||||
| -rw-r--r-- | src/interp/br-data.boot | 5 |
2 files changed, 3 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 7e044d50..392dbfda 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -2,6 +2,7 @@ * interp/br-data.boot (getParentsFor): Move to define.boot. (explodeIfs): Likewise. + (getParentsForDomain): Tidy. 2012-02-09 Gabriel Dos Reis <gdr@cs.tamu.edu> 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 |