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/i-coerce.boot | |
| parent | 104def0e400bbf3a0daed9e490e41485a9213c9d (diff) | |
| download | open-axiom-554f0da895913012bc9e029e9312c50650e222b2.tar.gz | |
more cleanup
Diffstat (limited to 'src/interp/i-coerce.boot')
| -rw-r--r-- | src/interp/i-coerce.boot | 2 |
1 files changed, 1 insertions, 1 deletions
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)]] |