diff options
author | dos-reis <gdr@axiomatics.org> | 2011-01-27 21:12:57 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-01-27 21:12:57 +0000 |
commit | a31c0a21788a17c1bce15120225bc5a15fa1da33 (patch) | |
tree | 5f5cea97cd52114dee92a8b66ca802e7fd0fab08 /src/interp/nrungo.boot | |
parent | 8e0d0dbfa31e6a035ec5e954c192742ade763dda (diff) | |
download | open-axiom-a31c0a21788a17c1bce15120225bc5a15fa1da33.tar.gz |
Generate SVREF for simple vector slot refs.
Diffstat (limited to 'src/interp/nrungo.boot')
-rw-r--r-- | src/interp/nrungo.boot | 2 |
1 files changed, 1 insertions, 1 deletions
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) == |