From 5c4ff220c3ba9a37ffaf875e218c36ae0a436631 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 19 May 2011 17:02:42 +0000
Subject: 	* interp/i-analy.boot (bottomUpForm0): Tidy. 	*
 interp/i-eval.boot (evalForm): Likewise. 	* interp/buildom.boot
 (formalRecordField): New. 	(eltRecordFun): Use it. 
 (seteltRecordFun): New. 	* interp/g-opt.boot (optSETRECORDELT): Remove.
 	(optRECORDCOPY): Likewise. 	* interp/vmlisp.lisp (MAKE-VEC):
 Likewise.

---
 src/interp/i-eval.boot | 2 --
 1 file changed, 2 deletions(-)

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

diff --git a/src/interp/i-eval.boot b/src/interp/i-eval.boot
index faf20da6..b8984de1 100644
--- a/src/interp/i-eval.boot
+++ b/src/interp/i-eval.boot
@@ -239,8 +239,6 @@ evalForm(op,opName,argl,mmS) ==
           ['SPADCALL,:form,freeFun]
         fun is ['XLAM,xargs,:xbody] =>
           rec :=  first form
-          xbody is [['SETRECORDELT,.,ind,len,.]] =>
-            optSETRECORDELT([CAAR xbody,rec,ind,len,third form])
           ['FUNCALL,['function , ['LAMBDA,xargs,:xbody]],:TAKE(#xargs, form)]
         dcVector := evalDomain dc
         fun0 :=
-- 
cgit v1.2.3