From 8713b86619d3b01bf6af78af9429c6b032937ed4 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 29 Nov 2008 07:03:45 +0000 Subject: * 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". --- src/interp/showimp.boot | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/interp/showimp.boot') diff --git a/src/interp/showimp.boot b/src/interp/showimp.boot index d873129f..06db93ac 100644 --- a/src/interp/showimp.boot +++ b/src/interp/showimp.boot @@ -197,10 +197,11 @@ getDomainRefName(dom,nam) == not FIXP nam => nam slot := dom.nam VECP slot => slot.0 - slot is ['SETELT,:.] => getDomainRefName(dom,getDomainSeteltForm slot) + slot is ["setShellEntry",:.] => + getDomainRefName(dom,getDomainSeteltForm slot) slot -getDomainSeteltForm ['SETELT,.,.,form] == +getDomainSeteltForm ["setShellEntry",.,.,form] == form is ['evalSlotDomain,u,d] => devaluateSlotDomain(u,d) VECP form => systemError() form -- cgit v1.2.3