From 8993bc2fe00eb48b57945b850c14bde8fae1dfb7 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 24 May 2010 15:31:17 +0000
Subject: 	* interp/i-object.boot (object): New. Abstract over
 boilerplate. 	* interp/i-analy.boot: Use it in place of boilerplate. 	*
 interp/i-eval.boot: Likewise. 	* interp/i-spec1.boot: Likewise. 	*
 interp/i-spec2.boot: Likewise.

---
 src/interp/i-analy.boot | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/interp/i-analy.boot')

diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot
index b42551f3..30d8603a 100644
--- a/src/interp/i-analy.boot
+++ b/src/interp/i-analy.boot
@@ -598,8 +598,7 @@ bottomUpForm0(t,op,opName,argl,argModeSetList) ==
     rtype := ['Record,:rargs]
     code := optRECORDCOPY(['RECORDCOPY,getArgValue(first argl, rtype),#rargs])
 
-    if $genValue then code := wrap timedEVALFUN code
-    val := objNew(code,rtype)
+    val := object(code,rtype)
     putValue(t,val)
     putModeSet(t,[rtype])
 
-- 
cgit v1.2.3