diff options
Diffstat (limited to 'src/interp/database.boot')
-rw-r--r-- | src/interp/database.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/database.boot b/src/interp/database.boot index fb2e6bf5..d2dd49a4 100644 --- a/src/interp/database.boot +++ b/src/interp/database.boot @@ -174,7 +174,7 @@ augmentLisplibModemapsFromFunctor(form,opAlist,signature) == nonCategorySigAlist:= mkAlistOfExplicitCategoryOps first signature or return nil for (entry:= [[op,sig,:.],pred,sel]) in opAlist | - or/[(sig in catSig) for catSig in + or/[member(sig,catSig) for catSig in allLASSOCs(op,nonCategorySigAlist)] repeat skip:= argl and CONTAINED("$",rest sig) => 'SKIP |