aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2010-05-30 18:11:23 +0000
committerdos-reis <gdr@axiomatics.org>2010-05-30 18:11:23 +0000
commitded226fca8f3a75d33602a7fbbc941c55e985fdf (patch)
tree6092f87390e637d75f29a62111f1e80581d51e8c /src/interp
parentaf87c81acc504ae6bc41737d4aeb070c18ebf13a (diff)
downloadopen-axiom-ded226fca8f3a75d33602a7fbbc941c55e985fdf.tar.gz
* interp/i-coerce.boot (getSubDomainPredicate): Use compileInteractive.
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/i-coerce.boot3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/i-coerce.boot b/src/interp/i-coerce.boot
index bd11d794..c051c1c0 100644
--- a/src/interp/i-coerce.boot
+++ b/src/interp/i-coerce.boot
@@ -928,7 +928,8 @@ coerceSubDomain(val, tSuper, tSub) ==
getSubDomainPredicate(tSuper, tSub, pred) ==
predfn := HGET($superHash, [tSuper,:tSub]) => predfn
arg := gensym()
- predfn := COMPILE(nil,["LAMBDA",[arg],substitute(arg,"#1", pred)])
+ [predfn] := compileInteractive
+ [gensym(),['LAM,[arg],substitute(arg,"#1", pred)]]
HPUT($superHash, [tSuper,:tSub], predfn)
predfn