diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/interp/info.boot | 6 | ||||
| -rw-r--r-- | src/interp/nruncomp.boot | 2 | ||||
| -rw-r--r-- | src/interp/sys-constants.boot | 3 |
4 files changed, 9 insertions, 7 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 32150509..eee2f44e 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,10 @@ 2010-07-09 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/sys-constants.boot ($noEnv): Remove. + * interp/info.boot (actOnInfo): Adjust. + +2010-07-09 Gabriel Dos Reis <gdr@cs.tamu.edu> + * interp/functor.boot (SetFunctionSlots): Simplify. The outer loop was executed only once. diff --git a/src/interp/info.boot b/src/interp/info.boot index 15d0bb08..9eba51de 100644 --- a/src/interp/info.boot +++ b/src/interp/info.boot @@ -223,7 +223,7 @@ actOnInfo(u,$e) == compilerMessage('"augmenting %1: %2p", [name,["ATTRIBUTE",att]]) key:= if CONTAINED("$",vmode) then "domain" else name cat:= ["CATEGORY",key,["ATTRIBUTE",att]] - $e:= put(name,"value",[vval,mkJoin(cat,vmode),$noEnv],$e) + $e:= put(name,"value",[vval,mkJoin(cat,vmode),nil],$e) --there is nowhere %else that this sort of thing exists u is ["SIGNATURE",name,operator,modemap,:q] => kind := @@ -240,7 +240,7 @@ actOnInfo(u,$e) == [name,["SIGNATURE",operator,modemap,:q]]) key:= if CONTAINED("$",vmode) then "domain" else name cat:= ["CATEGORY",key,["SIGNATURE",operator,modemap,:q]] - $e:= put(name,"value",[vval,mkJoin(cat,vmode),$noEnv],$e) + $e:= put(name,"value",[vval,mkJoin(cat,vmode),nil],$e) u is ["has",name,cat] => [vval,vmode,.]:= GetValue name cat=vmode => $e --stating the already known @@ -262,7 +262,7 @@ actOnInfo(u,$e) == not MEMQ(name,$functorLocalParameters) then $functorLocalParameters:=[:$functorLocalParameters,name] compilerMessage('"augmenting %1: %2p", [name,cat]) - $e:= put(name,"value",[vval,mkJoin(cat,vmode),$noEnv],$e) + $e:= put(name,"value",[vval,mkJoin(cat,vmode),nil],$e) SAY("extension of ",vval," to ",cat," ignored") $e systemError ['"actOnInfo",u] diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index 8981fd7e..1145b6c5 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -449,7 +449,7 @@ buildFunctor($definition is [name,:args],sig,code,$locals,$e) == -- category should be present. true => always makeCatvecCode:= first catvecListMaker emptyVector := VECTOR() - domainShell := newShell ($NRTbase + $NRTdeltaLength) + domainShell := newShell($NRTbase + $NRTdeltaLength) for i in 0..4 repeat domainShell.i := $domainShell.i --we will clobber elements; copy since $domainShell may be a cached vector $template := newShell ($NRTbase + $NRTdeltaLength) diff --git a/src/interp/sys-constants.boot b/src/interp/sys-constants.boot index e1b9615c..61abaaeb 100644 --- a/src/interp/sys-constants.boot +++ b/src/interp/sys-constants.boot @@ -668,9 +668,6 @@ $leaveMode == $EmptyMode ++ -$noEnv == nil - -++ IDENTITY == function IDENTITY |