GENERALIZED-ARRAYS: one-line bug in SRFI 179. Closes #432

See scheme-requests-for-implementation/srfi-179@eae436a

Author: mgorges

modules/generalized-arrays/generalized-arrays.scm

@@ -51,7 +51,7 @@ OTHER DEALINGS IN THE SOFTWARE.
 
 (cond-expand
  (gambit-c
-  
+
   (define (vector-copy! dst-vect dst-start src-vect src-start src-end)
     (subvector-move! src-vect src-start src-end dst-vect dst-start))
 
@@ -213,7 +213,7 @@ OTHER DEALINGS IN THE SOFTWARE.
 
 (define (%%finish-interval lower-bounds upper-bounds)
   (make-%%interval (vector-length upper-bounds)
-                   #f                            
+                   #f
                    (vector-copy lower-bounds)
                    (vector-copy upper-bounds)))
 
@@ -1860,7 +1860,7 @@ OTHER DEALINGS IN THE SOFTWARE.
 ;;; We consolidate all moving of array elements to the following procedure.
 
 (define (%%move-array-elements destination source caller)
-  
+
   ;; Here's the logic:
   ;; We require the source and destination to have the same number of elements.
   ;; If destination is a specialized array
@@ -1900,12 +1900,12 @@ OTHER DEALINGS IN THE SOFTWARE.
 
   ;; We check that the elements we move to the destination are OK for the
   ;; destination because if we don't catch errors here they can be very tricky to find.
-  
+
   (if (not (= (%%interval-volume (%%array-domain source))
               (%%interval-volume (%%array-domain destination))))
       (error (string-append caller "Arrays must have the same volume: ")
              destination source))
-  
+
   (if (specialized-array? destination)
       (if (%%array-elements-in-order? destination)
           ;; Now we do not assume that the domains are the same
@@ -2069,7 +2069,7 @@ OTHER DEALINGS IN THE SOFTWARE.
                                          "Not all elements of the source can be stored in destination: ")
                                         destination source i j k l item))))))
                             (else
-                             (let ((index 0))
+                             (let ((index initial-offset))
                                (lambda multi-index
                                  (let ((item (apply getter multi-index)))
                                    (if (checker item)
@@ -2664,7 +2664,7 @@ OTHER DEALINGS IN THE SOFTWARE.
 (define-macro (setup-permuted-getters-and-setters)
 
   (include "modules/generalized-arrays/generalized-arrays-include.scm")
-  
+
   (define (list-remove l i)
     ;; new list that removes (list-ref l i) from l
     (if (zero? i)
@@ -2740,11 +2740,11 @@ OTHER DEALINGS IN THE SOFTWARE.
          (%%array-permute array permutation))))
 
 (define (%%rotation->permutation k size)
-  
+
   ;; Generates a permutation that rotates
   ;; 0 1 ... size-1
   ;; left by k units.
-  
+
   (let ((result (make-vector size)))
     (let left-loop ((i 0)
                     (j k))
@@ -2783,7 +2783,7 @@ OTHER DEALINGS IN THE SOFTWARE.
 (define-macro (setup-reversed-getters-and-setters)
 
   (include "modules/generalized-arrays/generalized-arrays-include.scm")
-  
+
   (define (make-symbol . args)
     (string->symbol
      (apply string-append
@@ -2900,7 +2900,7 @@ OTHER DEALINGS IN THE SOFTWARE.
 (define-macro (macro-generate-sample)
 
   (include "modules/generalized-arrays/generalized-arrays-include.scm")
-  
+
   (define (make-symbol . args)
     (string->symbol
      (apply string-append
@@ -3741,7 +3741,7 @@ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
     ;; Decides whether to include v(k) in the result vector
     ;; by testing p(k), not p(v(k)).
-  
+
     (let ((n (vector-length v)))
       (define (helper k i)
         (cond ((fx= k n)
@@ -3753,7 +3753,7 @@ OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
               (else
                (helper (fx+ k 1) i))))
       (helper 0 0)))
-  
+
   (cond ((not (specialized-array? array))
          (error "specialized-array-reshape: The first argument is not a specialized array: " array new-domain))
         ((not (interval? new-domain))