From 104def0e400bbf3a0daed9e490e41485a9213c9d Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 5 May 2011 15:40:21 +0000
Subject: more cleanup

---
 src/interp/interop.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp/interop.boot')

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]
  
-- 
cgit v1.2.3