diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-11-23 22:11:08 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-11-23 22:11:08 +0000 |
| commit | 3726db8810fbc954aa8782dd9b4b638f132c0aec (patch) | |
| tree | 9b4e65d780244f2e755b4ee784da152d88c34efb /src/interp | |
| parent | e2f98b591c89e7104af9f757e13edc57afbc7135 (diff) | |
| download | open-axiom-3726db8810fbc954aa8782dd9b4b638f132c0aec.tar.gz | |
* interp/nruncomp.boot (NRTaddDeltaCode): Do not guard the loop by
the values in the first vector in $catvecList. It is pointless.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/nruncomp.boot | 4 |
1 files changed, 1 insertions, 3 deletions
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 => |