aboutsummaryrefslogtreecommitdiff
path: root/src/interp/define.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r--src/interp/define.boot12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot
index dee8a8be..10403767 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -251,9 +251,9 @@ mkJoin(cat,mode) ==
['Join,cat,mode]
-GetValue name ==
- u:= get(name,"value",$e) => u
- u:= comp(name,$EmptyMode,$e) => u --name may be a form
+getvalue(name,e) ==
+ u := get(name,"value",e) => u
+ u := comp(name,$EmptyMode,e) => u --name may be a form
systemError [name,'" is not bound in the current environment"]
actOnInfo(u,$e) ==
@@ -272,7 +272,7 @@ actOnInfo(u,$e) ==
$e := actOnInfo(v,$e)
$e
u is ["ATTRIBUTE",name,att] =>
- [vval,vmode,.]:= GetValue name
+ [vval,vmode,.] := getvalue(name,$e)
compilerMessage('"augmenting %1: %2p", [name,["ATTRIBUTE",att]])
key :=
-- FIXME: there should be a better to tell whether name
@@ -292,7 +292,7 @@ actOnInfo(u,$e) ==
name = "$" => [kind,name,-1]
[kind,name,substitute('$,name,modemap)]
$e:= addModemap(operator,name,modemap,true,implem,$e)
- [vval,vmode,.]:= GetValue name
+ [vval,vmode,.] := getvalue(name,$e)
compilerMessage('"augmenting %1: %2p",
[name,["SIGNATURE",operator,modemap,:q]])
key :=
@@ -303,7 +303,7 @@ actOnInfo(u,$e) ==
cat:= ["CATEGORY",key,["SIGNATURE",operator,modemap,:q]]
$e:= put(name,"value",[vval,mkJoin(cat,vmode),nil],$e)
u is ["has",name,cat] =>
- [vval,vmode,.]:= GetValue name
+ [vval,vmode,.] := getvalue(name,$e)
cat=vmode => $e --stating the already known
u:= compMakeCategoryObject(cat,$e) =>
--we are adding information about a category