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/nrunfast.boot | |
| parent | 104def0e400bbf3a0daed9e490e41485a9213c9d (diff) | |
| download | open-axiom-554f0da895913012bc9e029e9312c50650e222b2.tar.gz | |
more cleanup
Diffstat (limited to 'src/interp/nrunfast.boot')
| -rw-r--r-- | src/interp/nrunfast.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot index 5d3fba7c..834e2432 100644 --- a/src/interp/nrunfast.boot +++ b/src/interp/nrunfast.boot @@ -346,7 +346,7 @@ newLookupInCategories(op,sig,dom,dollar) == vectorRef(packageVec,i) := package package ----old world - table := HGET($Slot1DataBase,entry) or systemError nil + table := tableValue($Slot1DataBase,entry) or systemError nil (u := LASSQ(op,table)) and (v := or/[rest x for x in u | #sig = #x.0]) => packageForm := [entry,'$,:rest cat] @@ -419,7 +419,7 @@ newLookupInCategories1(op,sig,dom,dollar) == package := evalSlotDomain(packageForm,dom) vectorRef(packageVec,i) := package package - table := HGET($Slot1DataBase,entry) or systemError nil + table := tableValue($Slot1DataBase,entry) or systemError nil (u := LASSQ(op,table)) and (v := or/[rest x for x in u | #sig = #x.0]) => packageForm := [entry,'$,:rest cat] |