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-analy.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-analy.boot')
-rw-r--r-- | src/interp/i-analy.boot | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/interp/i-analy.boot b/src/interp/i-analy.boot index 9edac053..6fea2735 100644 --- a/src/interp/i-analy.boot +++ b/src/interp/i-analy.boot @@ -598,16 +598,6 @@ bottomUpForm0(t,op,opName,argl,argModeSetList) == m := isType t => bottomUpType(t, m) - opName = 'copy and argModeSetList is [[['Record,:rargs]]] => - -- this is a hack until Records go through the normal - -- modemap selection process - rtype := ['Record,:rargs] - code := optRECORDCOPY(['RECORDCOPY,getArgValue(first argl, rtype),#rargs]) - - val := object(code,rtype) - putValue(t,val) - putModeSet(t,[rtype]) - m := getModeOrFirstModeSetIfThere op m is ['Record,:.] and argModeSetList is [[['Variable,x]]] and member(x,getUnionOrRecordTags m) and (u := bottomUpElt t) => u |