diff --git a/srfi-133.html b/srfi-133.html index c296b93..431ee69 100644 --- a/srfi-133.html +++ b/srfi-133.html @@ -1464,7 +1464,7 @@

5.4. Iteration

- (vector-cumulate f vec knil) + (vector-cumulate f knil vec) -> vector
diff --git a/vectors/vectors-impl.scm b/vectors/vectors-impl.scm index 9eaabd0..9b798e0 100644 --- a/vectors/vectors-impl.scm +++ b/vectors/vectors-impl.scm @@ -917,13 +917,13 @@ vector-count) (cons vec vectors))))) -;;; (VECTOR-CUMULATE ) +;;; (VECTOR-CUMULATE ) ;;; -> vector ;;; Returns a ly allocated vector with the same length as ;;; . Each element of is set to the result of invoking on ;;; [i-1] and [i], except that for the first call on , the first ;;; argument is . The vector is returned. -(define (vector-cumulate f vec knil) +(define (vector-cumulate f knil vec) (let* ((len (vector-length vec)) (result (make-vector len))) (let loop ((i 0) (left knil))