diff options
| -rw-r--r-- | src/ChangeLog | 4 | ||||
| -rw-r--r-- | src/interp/i-funsel.boot | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index c986f8c1..f52e64d1 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2009-10-14 Gabriel Dos Reis <gdr@cs.tamu.edu> + + * interp/i-funsel.boot (findFunctionInDomain): Fix thinko. + 2009-10-12 Kostas Oikonomou <ko@research.att.com> * algebra/tex.spad.pamphlet: Update special function list. 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 |