diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-05 15:40:21 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-05 15:40:21 +0000 |
| commit | 104def0e400bbf3a0daed9e490e41485a9213c9d (patch) | |
| tree | 048611db2122fb44a02ed8b4e55a70642e2a95ad /src/interp/interop.boot | |
| parent | fb3bb6231462cddfb70301ea1672ebc04c8e829a (diff) | |
| download | open-axiom-104def0e400bbf3a0daed9e490e41485a9213c9d.tar.gz | |
more cleanup
Diffstat (limited to 'src/interp/interop.boot')
| -rw-r--r-- | src/interp/interop.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/interop.boot b/src/interp/interop.boot index 847edadd..383ad048 100644 --- a/src/interp/interop.boot +++ b/src/interp/interop.boot @@ -275,9 +275,9 @@ depthAssoc x == y := HGET($depthAssocCache,x) => y x is ['Join,:u] or (u := getCatAncestors x) => v := depthAssocList u - HPUT($depthAssocCache,x,[[x,:n],:v]) + tableValue($depthAssocCache,x) := [[x,:n],:v] where n() == 1 + "MAX"/[rest y for y in v] - HPUT($depthAssocCache,x,[[x,:0]]) + tableValue($depthAssocCache,x) := [[x,:0]] getCatAncestors x == [CAAR y for y in parentsOf opOf x] |