bytevector-copy is missed. added port-open?c

extlib/benz

@@ -1 +1 @@
-Subproject commit 92749325a9ac2a37efde9dd8914b2306c1f80276
+Subproject commit 813ce064f3eb5ab56b80b0560c2c06138084ccf3

piclib/picrin/base.scm

@@ -124,6 +124,7 @@
           bytevector-length
           bytevector-u8-ref
           bytevector-u8-set!
+          bytevector-copy
           bytevector-copy!
           bytevector-append)
 
@@ -177,6 +178,7 @@
           textual-port?
           binary-port?
 
+          port-open?
           close-port
 
           open-input-file

piclib/scheme/base.scm

@@ -479,19 +479,19 @@
                    (string-length s))))
       (list->bytevector (map char->integer (string->list s start end)))))
 
-  (export bytevector
-          bytevector->list
-          list->bytevector
-          utf8->string
-          string->utf8)
-
   (export bytevector?
+          bytevector
           make-bytevector
           bytevector-length
           bytevector-u8-ref
           bytevector-u8-set!
+          bytevector-copy
           bytevector-copy!
-          bytevector-append)
+          bytevector-append
+          bytevector->list
+          list->bytevector
+          utf8->string
+          string->utf8)
 
   ;; 6.10. Control features
 
@@ -507,15 +507,14 @@
   (define (vector-for-each f . vectors)
     (apply for-each f (map vector->list vectors)))
 
-  (export string-map
-          string-for-each
-          vector-map
-          vector-for-each)
-
   (export procedure?
           apply
           map
           for-each
+          string-map
+          string-for-each
+          vector-map
+          vector-for-each
           call-with-current-continuation
           call/cc
           dynamic-wind
@@ -554,6 +553,8 @@
           textual-port?
           binary-port?
 
+          (rename port-open? input-port-open?)
+          (rename port-open? output-port-open?)
           close-port
           (rename close-port close-input-port)
           (rename close-port close-output-port)