From 3726db8810fbc954aa8782dd9b4b638f132c0aec Mon Sep 17 00:00:00 2001 From: dos-reis 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/ChangeLog | 5 +++++ src/interp/nruncomp.boot | 4 +--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 3aa7556f..b8c0f119 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2011-11-23 Gabriel Dos Reis + + * interp/nruncomp.boot (NRTaddDeltaCode): Do not guard the loop by + the values in the first vector in $catvecList. It is pointless. + 2011-11-23 Gabriel Dos Reis * interp/functor.boot (SigSlotsMatch): Remove. Adjust caller. 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 ) -- (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