From a31c0a21788a17c1bce15120225bc5a15fa1da33 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 27 Jan 2011 21:12:57 +0000
Subject: Generate SVREF for simple vector slot refs.

---
 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 4dea8353..b446b4cd 100644
--- a/src/interp/nrungo.boot
+++ b/src/interp/nrungo.boot
@@ -124,7 +124,7 @@ goGet(:l) ==
   fn:= basicLookup(op,sig,lookupDomain,dollar)
   fn = nil => keyedSystemError("S2NR0001",[op,sig,lookupDomain.0])
   val:= apply(first fn,[:arglist,rest fn])
-  setShellEntry(thisDomain,index,fn)
+  vectorRef(thisDomain,index) := fn
   val
 
 NRTreplaceLocalTypes(t,dom) ==
-- 
cgit v1.2.3