From 10795b52e7bb88d8e9f545e3507cf10f60294eb9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 14 Oct 2009 06:41:00 +0000
Subject: 	* interp/i-funsel.boot (findFunctionInDomain): Fix thinko.

---
 src/interp/i-funsel.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp')

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
-- 
cgit v1.2.3