move {vector,string}-{map,for-each}

piclib/picrin/base.scm

@@ -116,14 +116,14 @@
           list-ref
           list-set!
           list-copy
+          map
+          for-each
           memq
           memv
           member
           assq
           assv
-          assoc
-          map
-          for-each)
+          assoc)
 
   (export bytevector?
           bytevector
@@ -147,6 +147,8 @@
           vector-copy
           vector-append
           vector-fill!
+          vector-map
+          vector-for-each
           list->vector
           vector->list
           string->vector
@@ -162,6 +164,8 @@
           string-copy!
           string-append
           string-fill!
+          string-map
+          string-for-each
           string->list
           list->string
           string=?

piclib/scheme/base.scm

@@ -435,18 +435,6 @@
 
   ;; 6.10. Control features
 
-  (define (string-map f . strings)
-    (list->string (apply map f (map string->list strings))))
-
-  (define (string-for-each f . strings)
-    (apply for-each f (map string->list strings)))
-
-  (define (vector-map f . vectors)
-    (list->vector (apply map f (map vector->list vectors))))
-
-  (define (vector-for-each f . vectors)
-    (apply for-each f (map vector->list vectors)))
-
   (export procedure?
           apply
           map