aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/ChangeLog4
-rw-r--r--src/interp/i-funsel.boot2
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