diff options
Diffstat (limited to 'src/interp/i-funsel.boot')
| -rw-r--r-- | src/interp/i-funsel.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot index 069c37a8..68c93033 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -890,7 +890,8 @@ findFunctionInCategory(op,dc,tar,args1,args2,$Coerce,$SubDom) == if CONSP(xargs) then maxargs := MAX(maxargs,#xargs) else maxargs := MAX(maxargs,1) impls := cons([b,nil,true,d],impls) - impls := cons([b,d,true,d],impls) + d isnt [k,"$",n] => systemErrorHere ["findFunctionInCategory",d] + impls := [[b,n,true,k],:impls] impls := nreverse impls if maxargs ~= -1 then SL:= NIL |