From 64d7861bf32f40d3ed5e540388390aaf11743a04 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 9 Sep 2014 02:14:24 +0900
Subject: [PATCH] bytevector-copy is missed. added port-open?c

---
 extlib/benz            |  2 +-
 piclib/picrin/base.scm |  2 ++
 piclib/scheme/base.scm | 25 +++++++++++++------------
 3 files changed, 16 insertions(+), 13 deletions(-)

diff --git a/extlib/benz b/extlib/benz
index 92749325..813ce064 160000
--- a/extlib/benz
+++ b/extlib/benz
@@ -1 +1 @@
-Subproject commit 92749325a9ac2a37efde9dd8914b2306c1f80276
+Subproject commit 813ce064f3eb5ab56b80b0560c2c06138084ccf3
diff --git a/piclib/picrin/base.scm b/piclib/picrin/base.scm
index c6524d31..cb2a3f8d 100644
--- a/piclib/picrin/base.scm
+++ b/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
diff --git a/piclib/scheme/base.scm b/piclib/scheme/base.scm
index 5fc30a9d..b7108bc5 100644
--- a/piclib/scheme/base.scm
+++ b/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)