From 5363e6dd85dc8397464467b7ac278d819ffd7ebe Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 11 Dec 2008 22:55:46 +0000
Subject:  r12438@gauss:  gdr | 2008-12-10 01:20:20 -0600  	Remove
 quotify.

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

(limited to 'src/interp/wi1.boot')

diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot
index 9b83ebc0..eab2d59d 100644
--- a/src/interp/wi1.boot
+++ b/src/interp/wi1.boot
@@ -1022,7 +1022,7 @@ compIf(["IF",aOrig,b,c],m,E) ==
   [xb,mb,Eb]:= Tb:= compFromIf(b,m,Ea) or return nil
   [xc,mc,Ec]:= Tc:= compFromIf(c,resolve(mb,m),Einv) or return nil
   xb':= coerce(Tb,mc) or return nil
-  x:= ["IF",xa,quotify xb'.expr,quotify xc]
+  x:= ["IF",xa,xb'.expr,xc]
   (returnEnv:= Env(xb'.env,Ec,xb'.expr,xc,E)) where
     Env(bEnv,cEnv,b,c,E) ==
       canReturn(b,0,0,true) =>
-- 
cgit v1.2.3