* interp/compiler.boot (compRepeatOrCollect): Set $loopKind directly.

	(complainIfShadowing): Don't complain when collecting.
	* algebra/contfrac.spad.pamphlet: Remove capsule-level declaration
	of local variables.
	* algebra/cycles.spad.pamphlet: Likewise.
	* algebra/cyclotom.spad.pamphlet: Likewise.
	* algebra/ddfact.spad.pamphlet: Likewise.
	* algebra/fortpak.spad.pamphlet: Likewise.
	* algebra/lingrob.spad.pamphlet: Likewise.
	* algebra/numode.spad.pamphlet: Likewise.
	* algebra/numquad.spad.pamphlet: Likewise.
	* algebra/out.spad.pamphlet: Likewise.
	* algebra/perman.spad.pamphlet: Likewise.
	* algebra/view2D.spad.pamphlet: Likewise.

5 files changed, 6 insertions, 6 deletions

diff --git a/src/share/algebra/browse.daase b/src/share/algebra/browse.daase
index 4250d407..9caed1a4 100644
--- a/src/share/algebra/browse.daase
+++ b/src/share/algebra/browse.daase
@@ -1,5 +1,5 @@
 
-(2276906 . 3522243819)       
+(2276906 . 3522279582)       
 (-18 A S) 
 ((|constructor| (NIL "One-dimensional-array aggregates serves as models for one-dimensional arrays. Categorically,{} these aggregates are finite linear aggregates with the \\spadatt{shallowlyMutable} property,{} that is,{} any component of the array may be changed without affecting the identity of the overall array. Array data structures are typically represented by a fixed area in storage and therefore cannot efficiently grow or shrink on demand as can list structures (see however \\spadtype{FlexibleArray} for a data structure which is a cross between a list and an array). Iteration over,{} and access to,{} elements of arrays is extremely fast (and often can be optimized to open-code). Insertion and deletion however is generally slow since an entirely new data structure must be created for the result."))) 
 NIL 
diff --git a/src/share/algebra/category.daase b/src/share/algebra/category.daase
index 83b287eb..06f5a069 100644
--- a/src/share/algebra/category.daase
+++ b/src/share/algebra/category.daase
@@ -1,5 +1,5 @@
 
-(205500 . 3522243824)        
+(205500 . 3522279586)        
 ((((-877)) . T)) 
 ((((-877)) . T)) 
 ((((-877)) . T)) 
diff --git a/src/share/algebra/compress.daase b/src/share/algebra/compress.daase
index 51fa7619..0f2e7368 100644
--- a/src/share/algebra/compress.daase
+++ b/src/share/algebra/compress.daase
@@ -1,5 +1,5 @@
 
-(30 . 3522243818)            
+(30 . 3522279580)            
 (4428 |Enumeration| |Mapping| |Record| |Union| |ofCategory| |isDomain|
  ATTRIBUTE |package| |domain| |category| CATEGORY |nobranch| AND |Join|
  |ofType| SIGNATURE "failed" "algebra" |OneDimensionalArrayAggregate&|
diff --git a/src/share/algebra/interp.daase b/src/share/algebra/interp.daase
index 3e616711..03d9885f 100644
--- a/src/share/algebra/interp.daase
+++ b/src/share/algebra/interp.daase
@@ -1,5 +1,5 @@
 
-(3432426 . 3522243833)       
+(3432426 . 3522279595)       
 ((-1935 (((-114) (-1 (-114) |#2| |#2|) $) 86 T ELT) (((-114) $) NIL T ELT)) (-1933 (($ (-1 (-114) |#2| |#2|) $) 18 T ELT) (($ $) NIL T ELT)) (-4218 ((|#2| $ (-558) |#2|) NIL T ELT) ((|#2| $ (-1255 (-558)) |#2|) 44 T ELT)) (-2510 (($ $) 80 T ELT)) (-4272 ((|#2| (-1 |#2| |#2| |#2|) $ |#2| |#2|) 52 T ELT) ((|#2| (-1 |#2| |#2| |#2|) $ |#2|) 50 T ELT) ((|#2| (-1 |#2| |#2| |#2|) $) 49 T ELT)) (-3839 (((-558) (-1 (-114) |#2|) $) 27 T ELT) (((-558) |#2| $) NIL T ELT) (((-558) |#2| $ (-558)) 96 T ELT)) (-3290 (((-661 |#2|) $) 13 T ELT)) (-3938 (($ (-1 (-114) |#2| |#2|) $ $) 64 T ELT) (($ $ $) NIL T ELT)) (-2160 (($ (-1 |#2| |#2|) $) 37 T ELT)) (-4388 (($ (-1 |#2| |#2|) $) NIL T ELT) (($ (-1 |#2| |#2| |#2|) $ $) 60 T ELT)) (-2517 (($ |#2| $ (-558)) NIL T ELT) (($ $ $ (-558)) 67 T ELT)) (-1468 (((-3 |#2| "failed") (-1 (-114) |#2|) $) 29 T ELT)) (-2158 (((-114) (-1 (-114) |#2|) $) 23 T ELT)) (-4230 ((|#2| $ (-558) |#2|) NIL T ELT) ((|#2| $ (-558)) NIL T ELT) (($ $ (-1255 (-558))) 66 T ELT)) (-2518 (($ $ (-558)) 76 T ELT) (($ $ (-1255 (-558))) 75 T ELT)) (-2157 (((-791) (-1 (-114) |#2|) $) 34 T ELT) (((-791) |#2| $) NIL T ELT)) (-1934 (($ $ $ (-558)) 69 T ELT)) (-3820 (($ $) 68 T ELT)) (-3950 (($ (-661 |#2|)) 73 T ELT)) (-4232 (($ $ |#2|) NIL T ELT) (($ |#2| $) NIL T ELT) (($ $ $) 87 T ELT) (($ (-661 $)) 85 T ELT)) (-4376 (((-877) $) 92 T ELT)) (-2159 (((-114) (-1 (-114) |#2|) $) 22 T ELT)) (-3454 (((-114) $ $) 95 T ELT)) (-3086 (((-114) $ $) 99 T ELT))) 
 (((-18 |#1| |#2|) (-10 -8 (-15 -3454 ((-114) |#1| |#1|)) (-15 -4376 ((-877) |#1|)) (-15 -3086 ((-114) |#1| |#1|)) (-15 -1933 (|#1| |#1|)) (-15 -1933 (|#1| (-1 (-114) |#2| |#2|) |#1|)) (-15 -2510 (|#1| |#1|)) (-15 -1934 (|#1| |#1| |#1| (-558))) (-15 -1935 ((-114) |#1|)) (-15 -3938 (|#1| |#1| |#1|)) (-15 -3839 ((-558) |#2| |#1| (-558))) (-15 -3839 ((-558) |#2| |#1|)) (-15 -3839 ((-558) (-1 (-114) |#2|) |#1|)) (-15 -1935 ((-114) (-1 (-114) |#2| |#2|) |#1|)) (-15 -3938 (|#1| (-1 (-114) |#2| |#2|) |#1| |#1|)) (-15 -4218 (|#2| |#1| (-1255 (-558)) |#2|)) (-15 -2517 (|#1| |#1| |#1| (-558))) (-15 -2517 (|#1| |#2| |#1| (-558))) (-15 -2518 (|#1| |#1| (-1255 (-558)))) (-15 -2518 (|#1| |#1| (-558))) (-15 -4388 (|#1| (-1 |#2| |#2| |#2|) |#1| |#1|)) (-15 -4232 (|#1| (-661 |#1|))) (-15 -4232 (|#1| |#1| |#1|)) (-15 -4232 (|#1| |#2| |#1|)) (-15 -4232 (|#1| |#1| |#2|)) (-15 -4230 (|#1| |#1| (-1255 (-558)))) (-15 -3950 (|#1| (-661 |#2|))) (-15 -1468 ((-3 |#2| "failed") (-1 (-114) |#2|) |#1|)) (-15 -4272 (|#2| (-1 |#2| |#2| |#2|) |#1|)) (-15 -4272 (|#2| (-1 |#2| |#2| |#2|) |#1| |#2|)) (-15 -4272 (|#2| (-1 |#2| |#2| |#2|) |#1| |#2| |#2|)) (-15 -4230 (|#2| |#1| (-558))) (-15 -4230 (|#2| |#1| (-558) |#2|)) (-15 -4218 (|#2| |#1| (-558) |#2|)) (-15 -2157 ((-791) |#2| |#1|)) (-15 -3290 ((-661 |#2|) |#1|)) (-15 -2157 ((-791) (-1 (-114) |#2|) |#1|)) (-15 -2158 ((-114) (-1 (-114) |#2|) |#1|)) (-15 -2159 ((-114) (-1 (-114) |#2|) |#1|)) (-15 -2160 (|#1| (-1 |#2| |#2|) |#1|)) (-15 -4388 (|#1| (-1 |#2| |#2|) |#1|)) (-15 -3820 (|#1| |#1|))) (-19 |#2|) (-1238)) (T -18)) 
 NIL 
@@ -2891,7 +2891,7 @@ NIL
 (((-711 |#1|) (-13 (-1284) (-1059 |#1|) (-630 (-877)) (-10 -8 (-15 -2585 ($ |#1|)) (-15 -3994 ((-114) $ (|[\|\|]| |#1|))) (-15 -3994 ((-114) $ (|[\|\|]| -2584))) (-15 -4000 (|#1| $)) (-15 -2584 ($) -4382))) (-630 (-877))) (T -711)) 
 ((-2585 (*1 *1 *2) (-12 (-5 *1 (-711 *2)) (-4 *2 (-630 (-877))))) (-3994 (*1 *2 *1 *3) (-12 (-5 *3 (|[\|\|]| *4)) (-4 *4 (-630 (-877))) (-5 *2 (-114)) (-5 *1 (-711 *4)))) (-3994 (*1 *2 *1 *3) (-12 (-5 *3 (|[\|\|]| -2584)) (-5 *2 (-114)) (-5 *1 (-711 *4)) (-4 *4 (-630 (-877))))) (-4000 (*1 *2 *1) (-12 (-5 *1 (-711 *2)) (-4 *2 (-630 (-877))))) (-2584 (*1 *1) (-12 (-5 *1 (-711 *2)) (-4 *2 (-630 (-877)))))) 
 (-13 (-1284) (-1059 |#1|) (-630 (-877)) (-10 -8 (-15 -2585 ($ |#1|)) (-15 -3994 ((-114) $ (|[\|\|]| |#1|))) (-15 -3994 ((-114) $ (|[\|\|]| -2584))) (-15 -4000 (|#1| $)) (-15 -2584 ($) -4382))) 
-((-2588 ((|#2| |#2| |#4|) 29 T ELT)) (-2591 (((-709 |#2|) |#3| |#4|) 35 T ELT)) (-2589 (((-709 |#2|) |#2| |#4|) 34 T ELT)) (-2586 (((-1288 |#2|) |#2| |#4|) 16 T ELT)) (-2587 ((|#2| |#3| |#4|) 28 T ELT)) (-2592 (((-709 |#2|) |#3| |#4| (-791) (-791)) 47 T ELT)) (-2590 (((-709 |#2|) |#2| |#4| (-791)) 46 T ELT))) 
+((-2588 ((|#2| |#2| |#4|) 29 T ELT)) (-2591 (((-709 |#2|) |#3| |#4|) 35 T ELT)) (-2589 (((-709 |#2|) |#2| |#4|) 34 T ELT)) (-2586 (((-1288 |#2|) |#2| |#4|) 16 T ELT)) (-2587 ((|#2| |#3| |#4|) 28 T ELT)) (-2592 (((-709 |#2|) |#3| |#4| (-791) (-791)) 48 T ELT)) (-2590 (((-709 |#2|) |#2| |#4| (-791)) 47 T ELT))) 
 (((-712 |#1| |#2| |#3| |#4|) (-10 -7 (-15 -2586 ((-1288 |#2|) |#2| |#4|)) (-15 -2587 (|#2| |#3| |#4|)) (-15 -2588 (|#2| |#2| |#4|)) (-15 -2589 ((-709 |#2|) |#2| |#4|)) (-15 -2590 ((-709 |#2|) |#2| |#4| (-791))) (-15 -2591 ((-709 |#2|) |#3| |#4|)) (-15 -2592 ((-709 |#2|) |#3| |#4| (-791) (-791)))) (-1122) (-917 |#1|) (-385 |#2|) (-13 (-385 |#1|) (-10 -7 (-6 -4425)))) (T -712)) 
 ((-2592 (*1 *2 *3 *4 *5 *5) (-12 (-5 *5 (-791)) (-4 *6 (-1122)) (-4 *7 (-917 *6)) (-5 *2 (-709 *7)) (-5 *1 (-712 *6 *7 *3 *4)) (-4 *3 (-385 *7)) (-4 *4 (-13 (-385 *6) (-10 -7 (-6 -4425)))))) (-2591 (*1 *2 *3 *4) (-12 (-4 *5 (-1122)) (-4 *6 (-917 *5)) (-5 *2 (-709 *6)) (-5 *1 (-712 *5 *6 *3 *4)) (-4 *3 (-385 *6)) (-4 *4 (-13 (-385 *5) (-10 -7 (-6 -4425)))))) (-2590 (*1 *2 *3 *4 *5) (-12 (-5 *5 (-791)) (-4 *6 (-1122)) (-4 *3 (-917 *6)) (-5 *2 (-709 *3)) (-5 *1 (-712 *6 *3 *7 *4)) (-4 *7 (-385 *3)) (-4 *4 (-13 (-385 *6) (-10 -7 (-6 -4425)))))) (-2589 (*1 *2 *3 *4) (-12 (-4 *5 (-1122)) (-4 *3 (-917 *5)) (-5 *2 (-709 *3)) (-5 *1 (-712 *5 *3 *6 *4)) (-4 *6 (-385 *3)) (-4 *4 (-13 (-385 *5) (-10 -7 (-6 -4425)))))) (-2588 (*1 *2 *2 *3) (-12 (-4 *4 (-1122)) (-4 *2 (-917 *4)) (-5 *1 (-712 *4 *2 *5 *3)) (-4 *5 (-385 *2)) (-4 *3 (-13 (-385 *4) (-10 -7 (-6 -4425)))))) (-2587 (*1 *2 *3 *4) (-12 (-4 *5 (-1122)) (-4 *2 (-917 *5)) (-5 *1 (-712 *5 *2 *3 *4)) (-4 *3 (-385 *2)) (-4 *4 (-13 (-385 *5) (-10 -7 (-6 -4425)))))) (-2586 (*1 *2 *3 *4) (-12 (-4 *5 (-1122)) (-4 *3 (-917 *5)) (-5 *2 (-1288 *3)) (-5 *1 (-712 *5 *3 *6 *4)) (-4 *6 (-385 *3)) (-4 *4 (-13 (-385 *5) (-10 -7 (-6 -4425))))))) 
 (-10 -7 (-15 -2586 ((-1288 |#2|) |#2| |#4|)) (-15 -2587 (|#2| |#3| |#4|)) (-15 -2588 (|#2| |#2| |#4|)) (-15 -2589 ((-709 |#2|) |#2| |#4|)) (-15 -2590 ((-709 |#2|) |#2| |#4| (-791))) (-15 -2591 ((-709 |#2|) |#3| |#4|)) (-15 -2592 ((-709 |#2|) |#3| |#4| (-791) (-791)))) 
diff --git a/src/share/algebra/operation.daase b/src/share/algebra/operation.daase
index 80f0b2bf..322538b7 100644
--- a/src/share/algebra/operation.daase
+++ b/src/share/algebra/operation.daase
@@ -1,5 +1,5 @@
 
-(719417 . 3522243821)        
+(719417 . 3522279583)        
 (((*1 *2 *3 *4)
   (|partial| -12 (-5 *3 (-1288 *4)) (-4 *4 (-13 (-1070) (-658 (-558))))
    (-5 *2 (-1288 (-419 (-558)))) (-5 *1 (-1317 *4)))))