diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-06 01:52:04 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-06 01:52:04 +0000 |
commit | 554f0da895913012bc9e029e9312c50650e222b2 (patch) | |
tree | d091568d27e5f01ec9f875224896ff1a4938de29 /src/interp/br-op1.boot | |
parent | 104def0e400bbf3a0daed9e490e41485a9213c9d (diff) | |
download | open-axiom-554f0da895913012bc9e029e9312c50650e222b2.tar.gz |
more cleanup
Diffstat (limited to 'src/interp/br-op1.boot')
-rw-r--r-- | src/interp/br-op1.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/br-op1.boot b/src/interp/br-op1.boot index 6790d805..1d8e6ae7 100644 --- a/src/interp/br-op1.boot +++ b/src/interp/br-op1.boot @@ -92,7 +92,7 @@ dbShowOps(htPage,which,key,:options) == reduceByGroup(htPage,opAlist) == not dbFromConstructor?(htPage) or null $groupChoice => opAlist dbExpandOpAlistIfNecessary(htPage,opAlist,'"operation",true,false) - bitNumber := HGET($topicHash,$groupChoice) + bitNumber := tableValue($topicHash,$groupChoice) res := [[op,:newItems] for [op,:items] in opAlist | newItems] where newItems() == null bitNumber => items @@ -215,7 +215,7 @@ conformString(form) == conform2StringList(form,opFn,argFn,exception) == exception := exception or '"%%%nothing%%%" [op1,:args] := form - op := IFCAR HGET($lowerCaseConTb,op1) or op1 + op := IFCAR tableValue($lowerCaseConTb,op1) or op1 null args => apply(opFn,[op]) special := op in '(Union Record Mapping) cosig := @@ -305,7 +305,7 @@ dbConformGen1(form,opButton?) == args => conform2StringList(form, opFunction,FUNCTION dbConformGen,nil) apply(opFunction,[form]) -unAbbreviateIfNecessary op == IFCAR HGET($lowerCaseConTb, op) or op +unAbbreviateIfNecessary op == IFCAR tableValue($lowerCaseConTb, op) or op conname2StringList form == [PNAME unAbbreviateIfNecessary opOf form] |