diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-10 21:06:02 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-10 21:06:02 +0000 |
commit | 81f1eb5784645fffc263bae02d4d12020c1e694c (patch) | |
tree | d0f93eba6aacab8bcb63d4793dcf1f56367579d2 /src/interp/functor.boot | |
parent | 23d51a95663fe0587a1252193f9a976495ddc146 (diff) | |
download | open-axiom-81f1eb5784645fffc263bae02d4d12020c1e694c.tar.gz |
* interp/vmlisp.lisp (VEC-SETELT): Remove.
* interp/scan.boot (scanInserts): Use vectorRef.
* interp/functor.boot (DescendCode): Don't check for SETELT or
QSETREFV forms.
* interp/nrunfast.boot (evalSlotDomain): Likewise.
Diffstat (limited to 'src/interp/functor.boot')
-rw-r--r-- | src/interp/functor.boot | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index 4e066e9a..c909d55d 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -565,8 +565,6 @@ DescendCode(code,flag,viewAssoc,EnvToPass) == code is ['MDEF,:.] => nil code is ['%call,:.] => code code is ["setShellEntry",:.] => code -- can be generated by doItIf - code is ['SETELT,:.] => systemErrorHere ["DescendCode",code] - code is ['QSETREFV,:.] => systemErrorHere ["DescendCode",code] stackWarning('"unknown Functor code: %1 ",[code]) code |