diff options
Diffstat (limited to 'src/interp/br-op2.boot')
-rw-r--r-- | src/interp/br-op2.boot | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/interp/br-op2.boot b/src/interp/br-op2.boot index 7ace60c7..266bdb89 100644 --- a/src/interp/br-op2.boot +++ b/src/interp/br-op2.boot @@ -568,7 +568,7 @@ modemap2Sig(op,mm) == target := dcSig . 1 ntarget := ['Union, target, '"failed"] dcSig := substitute(ntarget, target, dcSig) - alist := findSubstitutionOrder? pairlis(vlist, flist) or systemError() + alist := findSubstitutionOrder? pairList(vlist, flist) or systemError() predList := substInOrder(alist, predList) nsig := substInOrder(alist, sig) if hasPatternVar nsig or hasPatternVar predList then @@ -613,11 +613,3 @@ getSigSubst(u, pl, vl, fl) == key = 'not => getSigSubst(r, [item, :pl], vl, fl) systemError() [pl, vl, fl] - - -pairlis(u,v) == - null u or null v => nil - [[first u,:first v],:pairlis(rest u, rest v)] - - - |