diff options
Diffstat (limited to 'src/interp/cattable.boot')
| -rw-r--r-- | src/interp/cattable.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/cattable.boot b/src/interp/cattable.boot index a5abcce8..74faac7c 100644 --- a/src/interp/cattable.boot +++ b/src/interp/cattable.boot @@ -118,7 +118,7 @@ simpHasPred(pred,:options) == main where simpDevaluate a == eval substitute('QUOTE,'devaluate,a) simpHas(pred,a,b) == b is ['ATTRIBUTE,attr] => simpHasAttribute(pred,a,attr) - b is ['SIGNATURE,op,sig] => simpHasSignature(pred,a,op,sig) + b is ['SIGNATURE,op,sig,:.] => simpHasSignature(pred,a,op,sig) ident? a or hasIdent b => pred npred := evalHas pred ident? npred or null hasIdent npred => npred |