From 3726db8810fbc954aa8782dd9b4b638f132c0aec Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 23 Nov 2011 22:11:08 +0000
Subject: 	* interp/nruncomp.boot (NRTaddDeltaCode): Do not guard the
 loop by 	the values in the first vector in $catvecList.  It is
 pointless.

---
 src/interp/nruncomp.boot | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/nruncomp.boot b/src/interp/nruncomp.boot
index 4903e046..5a130cb7 100644
--- a/src/interp/nruncomp.boot
+++ b/src/interp/nruncomp.boot
@@ -79,10 +79,8 @@ NRTaddDeltaCode db ==
 --  (5) identifiers/strings, parts of signatures (now parts of signatures
 --      now must all have slot numbers, represented by (QUOTE <entry>)
 --  (6) constants, like 0 and 1, represented by (CONS .. ) form
-  kvec := first $catvecList
   for i in $NRTbase.. for item in reverse $NRTdeltaList
-    for compItem in reverse $NRTdeltaListComp
-      | null vectorRef(kvec,i) repeat
+    for compItem in reverse $NRTdeltaListComp repeat
         domainRef(dbTemplate db,i) := deltaTran(item,compItem)
   domainRef(dbTemplate db,5) :=
     $NRTaddForm =>
-- 
cgit v1.2.3