diff options
Diffstat (limited to 'src/interp')
| -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 |