From 9d0b4c5d09c2d07feb863f500172bcc8f6f17adf Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 11 Jun 2009 07:49:40 +0000 Subject: * interp/info.boot (actOnInfo): Don't remember new domain names if at capsule function scope. --- src/ChangeLog | 5 +++++ src/interp/info.boot | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/ChangeLog b/src/ChangeLog index 44bf6a01..e5495d95 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2009-06-11 Gabriel Dos Reis + + * interp/info.boot (actOnInfo): Don't remember new domain names if + at capsule function scope. + 2009-06-10 Gabriel Dos Reis * interp/parse.boot (parseDropAssertions): Remove. diff --git a/src/interp/info.boot b/src/interp/info.boot index 293b1e40..1e9cb6ef 100644 --- a/src/interp/info.boot +++ b/src/interp/info.boot @@ -257,8 +257,10 @@ actOnInfo(u,$e) == then $e:= augModemapsFromCategory(name,name,name,cat,$e) else genDomainView(name,name,cat,"HasCategory") - if not MEMQ(name,$functorLocalParameters) then - $functorLocalParameters:=[:$functorLocalParameters,name] + -- a domain upgrade at function level is local to that function. + if not $insideCapsuleFunctionIfTrue and + not MEMQ(name,$functorLocalParameters) then + $functorLocalParameters:=[:$functorLocalParameters,name] compilerMessage('"augmenting %1: %2p", [name,cat]) $e:= put(name,"value",[vval,mkJoin(cat,vmode),$noEnv],$e) SAY("extension of ",vval," to ",cat," ignored") -- cgit v1.2.3