From ded226fca8f3a75d33602a7fbbc941c55e985fdf Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 30 May 2010 18:11:23 +0000
Subject: 	* interp/i-coerce.boot (getSubDomainPredicate): Use
 compileInteractive.

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

(limited to 'src/interp')

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