From 9a593e3b395c1ba0c6036760c12713d7485f8c54 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 4 Aug 2011 13:56:52 +0000
Subject: cleanup

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

(limited to 'src/interp/i-funsel.boot')

diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot
index 1dd0d74a..d5cbcb91 100644
--- a/src/interp/i-funsel.boot
+++ b/src/interp/i-funsel.boot
@@ -1692,7 +1692,7 @@ ofCategory(dom,cat) ==
   -- the result is true or nil
   $Subst:local:= nil
   $hope:local := nil
-  IDENTP dom => nil
+  ident? dom => nil
   cat is ['Join,:cats] => and/[ofCategory(dom,c) for c in cats]
   (hasCaty(dom,cat,nil) isnt 'failed)
 
-- 
cgit v1.2.3