diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-10-14 06:41:00 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-10-14 06:41:00 +0000 |
| commit | 10795b52e7bb88d8e9f545e3507cf10f60294eb9 (patch) | |
| tree | 7e6d26d18d2e337c4f9c26af056c0799f4c42117 /src/interp | |
| parent | 95bc3ca0a7ebfa9173a31462ff2dfa62a80d1b33 (diff) | |
| download | open-axiom-10795b52e7bb88d8e9f545e3507cf10f60294eb9.tar.gz | |
* interp/i-funsel.boot (findFunctionInDomain): Fix thinko.
Diffstat (limited to 'src/interp')
| -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 9caec0b7..069c37a8 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -785,7 +785,7 @@ findFunctionInDomain(op,dc,tar,args1,args2,$Coerce,$SubDom) == tar and tar ~= $Boolean => NIL [[[dc, $Boolean, dc, dc], [$Boolean,'$,'$], [NIL, NIL]]] op = 'coerce => - #args1 ~= 1 + #args1 ~= 1 => nil dcName='Enumeration and (args1.0=$Symbol or tar=dc)=> [[[dc, dc, $Symbol], ['$,$Symbol], [NIL, NIL]]] args1.0 ~= dc => NIL |