diff options
author | dos-reis <gdr@axiomatics.org> | 2008-11-29 07:03:45 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-11-29 07:03:45 +0000 |
commit | 8713b86619d3b01bf6af78af9429c6b032937ed4 (patch) | |
tree | 646cff9501177c9719b0ad860929d7672dc79f55 /src/interp/nrunfast.boot | |
parent | bd554cf33bad7b6316732721fa192bc27b5a4b6e (diff) | |
download | open-axiom-8713b86619d3b01bf6af78af9429c6b032937ed4.tar.gz |
* interp/compiler.boot (setqSingle): Use setShellEntry.
* interp/wi1.boot (setqSingle): Likewise.
* interp/functor.boot (setVector4): Likewise.
(DescendCode): Abort on SETELT opcode.
(SetFunctionSlots): Likewise.
* interp/nrunfast.boot (evalSlotDomain): Likewise.
* interp/nrungo.boot (NRTevalDomain): Likewise.
* interp/showimp.boot (getDomainRefName): Match "setShellEntry".
Diffstat (limited to 'src/interp/nrunfast.boot')
-rw-r--r-- | src/interp/nrunfast.boot | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/interp/nrunfast.boot b/src/interp/nrunfast.boot index c7af9a80..028658a5 100644 --- a/src/interp/nrunfast.boot +++ b/src/interp/nrunfast.boot @@ -76,7 +76,9 @@ evalSlotDomain(u,dollar) == u = "$$" => dollar FIXP u => VECP (y := dollar.u) => y - y is ['SETELT,:.] => eval y--lazy domains need to marked; this is dangerous? + y is ["setShellEntry",:.] => eval y + --lazy domains need to marked; this is dangerous? + y is ['SETELT,:.] => systemErrorHere "evalSlotDomain" y is [v,:.] => VECP v => lazyDomainSet(y,dollar,u) --old style has [$,code,:lazyt] IDENTP v and constructor? v |