diff options
author | dos-reis <gdr@axiomatics.org> | 2011-05-19 17:02:42 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-05-19 17:02:42 +0000 |
commit | 5c4ff220c3ba9a37ffaf875e218c36ae0a436631 (patch) | |
tree | fa3160f03e36c6630c8a21e9ad0d9db035bc6d48 /src/interp/i-eval.boot | |
parent | ef1f327becb0cc095e887dcfe98f9e390d225ed8 (diff) | |
download | open-axiom-5c4ff220c3ba9a37ffaf875e218c36ae0a436631.tar.gz |
* 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.
Diffstat (limited to 'src/interp/i-eval.boot')
-rw-r--r-- | src/interp/i-eval.boot | 2 |
1 files changed, 0 insertions, 2 deletions
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 := |