diff options
Diffstat (limited to 'src/interp/nruncomp.boot')
| -rw-r--r-- | src/interp/nruncomp.boot | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot index a5f356f0..dcb5ecbe 100644 --- a/src/interp/nruncomp.boot +++ b/src/interp/nruncomp.boot @@ -775,11 +775,6 @@ NRTputInHead bod == bod is ["QUOTE",:.] => bod bod is ["CLOSEDFN",:.] => bod bod is ["SPADCONST",dom,ind] => - RPLACA(bod,$elt) - dom = '_$ => nil - k:= NRTassocIndex dom => - RPLACA(LASTNODE bod,[$elt,'_$,k]) - bod keyedSystemError("S2GE0016",['"NRTputInHead", '"unexpected SPADCONST form"]) NRTputInHead first bod |