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/modemap.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/modemap.boot')

diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot
index a99a13ef..fd5d56bb 100644
--- a/src/interp/modemap.boot
+++ b/src/interp/modemap.boot
@@ -48,7 +48,7 @@ addDomain(domain,e) ==
   atom domain =>
     domain="$EmptyMode" => e
     domain="$NoValueMode" => e
-    not IDENTP domain or 2 < #(s:= STRINGIMAGE domain) and
+    not ident? domain or 2 < #(s:= STRINGIMAGE domain) and
       char "#" = stringChar(s,0) and char "#" = stringChar(s,1) => e
     symbolMember?(domain,getDomainsInScope e) => e
     isLiteral(domain,e) => e
-- 
cgit v1.2.3