From 1f68c8c90efaf97535bfc1bfc99cad368213870e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 24 Feb 2011 18:06:28 +0000
Subject: 	* interp/sys-macros.lisp (shellEntry): New. 	*
 interp/g-util.boot (setShellEntry): Remove. 	* interp/compiler.boot: Use
 %store to %tref forms instead of 	setHSellEntry. 	* interp/define.boot:
 Likewise. 	* interp/functor.boot: Likewise. 	*
 interp/nruncomp.boot: Likewise. 	* interp/nrunfast.boot: Likewise. 
 * interp/showimp.boot: Likewise. 	* interp/c-util.boot (isSimple): Tidy.
 	(isSideEffectFree): Likewise. 	(updateCapsuleDirectory): Likewise.

---
 src/interp/wi1.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot
index 08de7a26..e71a9ece 100644
--- a/src/interp/wi1.boot
+++ b/src/interp/wi1.boot
@@ -587,7 +587,7 @@ setqSingle(id,val,m,E) ==
   if (k:=NRTassocIndex(id))
      then
        $markFreeStack := [id,:$markFreeStack]
-       form:=["setShellEntry","$",k,x]
+       form:=['%store,['%tref,"$",k],x]
      else form:=
          ["%LET",id,x]
   [form,m',e']
@@ -1217,7 +1217,7 @@ compDefineCategory2(form,signature,specialCases,body,m,e,
           [['devaluate,u] for u in sargl]]],body]
     body:=
       ['PROG1,["%LET",g:= gensym(),body],
-         ["setShellEntry",g,0,mkConstructor $functorForm]]
+         ['%store,['%tref,g,0],mkConstructor $functorForm]]
     fun:= compile [op',['LAM,sargl,body]]
 
 --  5. give operator a 'modemap property
-- 
cgit v1.2.3