From 64f037d91e0c9296dcaef9a0ff3eb33b19a2ed34 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:38 -0800
Subject: Import Upstream version 3a5

---
 arraymap.txi | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'arraymap.txi')

diff --git a/arraymap.txi b/arraymap.txi
index 2547eaf..ce082a6 100644
--- a/arraymap.txi
+++ b/arraymap.txi
@@ -41,6 +41,22 @@ Returns an array of lists of indexes for @var{array} such that, if
 @end defun
 
 
+@defun array-index-for-each array proc
+
+applies @var{proc} to the indices of each element of @var{array} in
+turn.  The value returned and the order of application are
+unspecified.
+
+One can implement @var{array-index-map!} as
+@example
+(define (array-index-map! ra fun)
+  (array-index-for-each
+   ra
+   (lambda is (apply array-set! ra (apply fun is) is))))
+@end example
+@end defun
+
+
 @deffn {Procedure} array-index-map! array proc
 
 applies @var{proc} to the indices of each element of @var{array} in
-- 
cgit v1.2.3