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 26032507..f6e9b10f 100644 --- a/src/interp/modemap.boot +++ b/src/interp/modemap.boot @@ -50,7 +50,7 @@ addDomain(domain,e) == domain="$NoValueMode" => 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 + symbolMember?(domain,getDomainsInScope e) => e isLiteral(domain,e) => e addNewDomain(domain,e) (name:= first domain)='Category => e @@ -604,7 +604,7 @@ actOnInfo(u,$e) == genDomainView(name,name,cat,"HasCategory") -- a domain upgrade at function level is local to that function. if not $insideCapsuleFunctionIfTrue and - not MEMQ(name,$functorLocalParameters) then + not symbolMember?(name,$functorLocalParameters) then $functorLocalParameters:=[:$functorLocalParameters,name] compilerMessage('"augmenting %1: %2p", [name,cat]) $e:= put(name,"value",[vval,mkJoin(cat,vmode),nil],$e) |