diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-30 18:11:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-30 18:11:23 +0000 |
| commit | ded226fca8f3a75d33602a7fbbc941c55e985fdf (patch) | |
| tree | 6092f87390e637d75f29a62111f1e80581d51e8c /src/interp/i-coerce.boot | |
| parent | af87c81acc504ae6bc41737d4aeb070c18ebf13a (diff) | |
| download | open-axiom-ded226fca8f3a75d33602a7fbbc941c55e985fdf.tar.gz | |
* interp/i-coerce.boot (getSubDomainPredicate): Use compileInteractive.
Diffstat (limited to 'src/interp/i-coerce.boot')
| -rw-r--r-- | src/interp/i-coerce.boot | 3 |
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 |