aboutsummaryrefslogtreecommitdiff
path: root/src/interp/modemap.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/modemap.boot')
-rw-r--r--src/interp/modemap.boot2
1 files changed, 1 insertions, 1 deletions
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