diff options
author | Bradley Lucier <lucier@math.purdue.edu> | 2024-02-13 15:42:28 -0500 |
---|---|---|
committer | Bradley Lucier <lucier@math.purdue.edu> | 2024-02-13 15:42:28 -0500 |
commit | b3df41a7ccf00c50fb50d0f552cc026b7e3716f0 (patch) | |
tree | 42422251d3fdc33103af6c42bc5381f61b6a168a | |
parent | 56deb95e061a33a27ee301eb49925a19cab59d96 (diff) |
Small fixes.
-rw-r--r-- | doc/gambit.txi | 2 | ||||
-rw-r--r-- | tests/unit-tests/07-vector/vector_cumulate.scm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/doc/gambit.txi b/doc/gambit.txi index 590b2d72..968690ca 100644 --- a/doc/gambit.txi +++ b/doc/gambit.txi @@ -4200,7 +4200,7 @@ from right to left, rather than left to right. The first index used is For example: @smallexample -> @b{(vector-unfold-right (lambda (i x) (values (cons i x) (+ x 1))) 5 0){ +> @b{(vector-unfold-right (lambda (i x) (values (cons i x) (+ x 1))) 5 0)} #((0 . 4) (1 . 3) (2 . 2) (3 . 1) (4 . 0)) > @b{(define vec '#(0 1 2 3 4))} > @b{(vector-unfold-right (lambda (i x) (values (vector-ref vec x) (+ x 1))) (vector-length vec) 0)} diff --git a/tests/unit-tests/07-vector/vector_cumulate.scm b/tests/unit-tests/07-vector/vector_cumulate.scm index e25fed9e..329da4df 100644 --- a/tests/unit-tests/07-vector/vector_cumulate.scm +++ b/tests/unit-tests/07-vector/vector_cumulate.scm @@ -3,7 +3,7 @@ (check-equal? '#(3 4 8 9 14 23 25 30 36) (vector-cumulate + 0 '#(3 1 4 1 5 9 2 5 6))) -(check-tail-exn type-exception? (lambda () (vector-cumulate 4 4))) +(check-tail-exn type-exception? (lambda () (vector-cumulate 4 4 'a))) (check-tail-exn type-exception? (lambda () (vector-cumulate values 'a 'a))) (check-tail-exn wrong-number-of-arguments-exception? (lambda () (vector-cumulate))) |