From 037f73f6e660f51447886aff6d0a60c122bd8507 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 7 Apr 2008 18:26:13 +0000
Subject: 	* interp/i-analy.boot (pushDownOp?): Use setShellEntry. 
 * interp/nrunfast.boot (replaceGoGetSlot): Likewise. 	(lazyDomainSet):
 Likewise. 	* interp/nrungo.boot (goGet): Likewise.

---
 src/interp/nrungo.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/nrungo.boot b/src/interp/nrungo.boot
index 8647f6f9..e9228806 100644
--- a/src/interp/nrungo.boot
+++ b/src/interp/nrungo.boot
@@ -105,7 +105,7 @@ goGet(:l) ==
   fn:= basicLookup(op,sig,lookupDomain,dollar)
   fn = nil => keyedSystemError("S2NR0001",[op,sig,lookupDomain.0])
   val:= APPLY(first fn,[:arglist,rest fn])
-  SETELT(thisDomain,index,fn)
+  setShellEntry(thisDomain,index,fn)
   val
 
 NRTreplaceLocalTypes(t,dom) ==
-- 
cgit v1.2.3