diff options
Diffstat (limited to 'src/interp/i-funsel.boot')
-rw-r--r-- | src/interp/i-funsel.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot index ffdea965..0b294caa 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -704,7 +704,7 @@ findCommonSigInDomain(opName,dom,nargs) == -- number of arguments. If no matches, returns nil. Otherwise returns -- a "signature" where a type position is non-nil only if all -- signatures shares that type . - first(dom) in '(Union Record Mapping) => nil + dom.op in '(Union Record Mapping) => nil mmList := ASSQ(opName,getConstructorOperationsFromDB dom.op) mmList := subCopy(mmList,constructSubst dom) null mmList => nil |