diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
-rw-r--r-- | src/interp/nruncomp.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index dcb5ecbe..49713af5 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -784,7 +784,7 @@ NRTputInHead bod == NRTputInTail x == for y in tails x repeat atom (u := first y) => - EQ(u,'$) or LASSOC(u,$devaluateList) => nil + u='$ or LASSOC(u,$devaluateList) => nil k:= NRTassocIndex u => atom u => RPLACA(y,[$elt,'_$,k]) -- u atomic means that the slot will always contain a vector |