summaryrefslogtreecommitdiffstats
path: root/arraymap.scm
diff options
context:
space:
mode:
Diffstat (limited to 'arraymap.scm')
-rwxr-xr-x[-rw-r--r--]arraymap.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/arraymap.scm b/arraymap.scm
index bfac855..e34eab6 100644..100755
--- a/arraymap.scm
+++ b/arraymap.scm
@@ -18,6 +18,7 @@
;each case.
(require 'array)
+(require 'multiarg-apply)
;;@code{(require 'array-for-each)}
;;@ftindex array-for-each
@@ -36,7 +37,8 @@
(is (cons (+ -1 (car rdims)) inds)
(cons (+ -1 i) inds)))
((negative? i))
- (apply array-set! ra0
+ (apply array-set!
+ ra0
(apply proc (map (lambda (ra) (apply array-ref ra is)) ras))
is))
(let ((crdims (cdr rdims)))