Add iota.
[mes.git] / module / srfi / srfi-43.mes
index b29cab17cfeefbeabcf0de5f28bc95461d1db2b4..4fe719c2da4c684ea48b5ffcc073288639bbf72b 100644 (file)
@@ -25,7 +25,7 @@
 ;;; Code:
 
 (define (vector-map f v)
-  (list->vector (map f (vector->list v) (iota (vector-length v)))))
+  (list->vector (map f (iota (vector-length v)) (vector->list v))))
 
 (define (vector-for-each f v)
-  (for-each f (vector->list v) (iota (vector-length v))))
+  (for-each f (iota (vector-length v)) (vector->list v)))