diff options
Diffstat (limited to 'src/interp/cattable.boot')
| -rw-r--r-- | src/interp/cattable.boot | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot index 74faac7c..a25c91b5 100644 --- a/src/interp/cattable.boot +++ b/src/interp/cattable.boot @@ -384,8 +384,7 @@ categoryParts(conform,category,:options) == main where res := applySubst(pairList(tvl,$FormalMapVariableList),res) res build(item,pred) == - item is ['SIGNATURE,op,sig,:.] => $oplist := [[opOf op,sig,:pred],:$oplist] - --note: opOf is needed!!! Bug in compiler puts in (One) and (Zero) + item is ['SIGNATURE,op,sig,:.] => $oplist := [[op,sig,:pred],:$oplist] item is ['ATTRIBUTE,attr] => constructor? opOf attr => $conslist := [[attr,:pred],:$conslist] |