diff options
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 |