From d338fac5f30034125dceaf6ab952018d8cba5a76 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 14 Dec 2008 23:29:08 +0000
Subject:  r12459@gauss:  gdr | 2008-12-12 18:18:31 -0600  	Tidy
 compApplyModemap.  r12460@gauss:  gdr | 2008-12-13 09:24:50 -0600  	Tidy
 compMapCond.  r12461@gauss:  gdr | 2008-12-13 10:24:14 -0600  	Activate
 compViableModemap.  r12462@gauss:  gdr | 2008-12-13 11:18:17 -0600  	Remove
 pmatch and pmatchWithSl out of main compiler.  r12463@gauss:  gdr |
 2008-12-13 12:26:44 -0600  	Tidy compApplyModemap.  r12464@gauss:  gdr |
 2008-12-13 16:39:28 -0600  	Add compExclusiveOr.  r12465@gauss:  gdr |
 2008-12-13 16:54:58 -0600  	.  r12466@gauss:  gdr | 2008-12-14 15:01:33
 -0600  	Tidy compLogicalNot.

---
 src/interp/nruncomp.boot | 5 -----
 1 file changed, 5 deletions(-)

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

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
-- 
cgit v1.2.3