From 8713b86619d3b01bf6af78af9429c6b032937ed4 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
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/compiler.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/compiler.boot')

diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot
index 686192e7..3245b887 100644
--- a/src/interp/compiler.boot
+++ b/src/interp/compiler.boot
@@ -854,7 +854,7 @@ setqSingle(id,val,m,E) ==
       --e.g. the %LET form below will be changed by putInLocalDomainReferences
 --+
   if k := NRTassocIndex(id) then 
-    form := ['SETELT,"$",k,x]
+    form := ["setShellEntry","$",k,x]
   else form:=
          $QuickLet => ["%LET",id,x]
          ["%LET",id,x,
-- 
cgit v1.2.3