From 554f0da895913012bc9e029e9312c50650e222b2 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 6 May 2011 01:52:04 +0000
Subject: more cleanup

---
 src/interp/i-coerce.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/i-coerce.boot')

diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot
index 60d86a4e..4c21e80c 100644
--- a/src/interp/i-coerce.boot
+++ b/src/interp/i-coerce.boot
@@ -926,7 +926,7 @@ coerceSubDomain(val, tSuper, tSub) ==
   nil
 
 getSubDomainPredicate(tSuper, tSub, pred) ==
-  predfn := HGET($superHash, [tSuper,:tSub]) => predfn
+  predfn := tableValue($superHash, [tSuper,:tSub]) => predfn
   arg := gensym()
   [predfn] := compileInteractive
                 [gensym(),['LAM,[arg],substitute(arg,"#1", pred)]]
-- 
cgit v1.2.3