diff options
Diffstat (limited to 'src/interp/modemap.boot')
-rw-r--r-- | src/interp/modemap.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/modemap.boot b/src/interp/modemap.boot index c6f6f50c..26032507 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -48,8 +48,8 @@ addDomain(domain,e) == atom domain => domain="$EmptyMode" => e domain="$NoValueMode" => e - not IDENTP domain or 2<#(s:= STRINGIMAGE domain) and - char "#" = s.0 and char "#" = s.1 => e + not IDENTP domain or 2 < #(s:= STRINGIMAGE domain) and + char "#" = stringChar(s,0) and char "#" = stringChar(s,1) => e MEMQ(domain,getDomainsInScope e) => e isLiteral(domain,e) => e addNewDomain(domain,e) |