From 96609de180801f4f90dd609ad6c407ebdc39aaa4 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 10 Sep 2014 20:10:09 +0900
Subject: [PATCH] string conversion functions

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

diff --git a/extlib/benz b/extlib/benz
index 8f93ddd8..c6b46ae2 160000
--- a/extlib/benz
+++ b/extlib/benz
@@ -1 +1 @@
-Subproject commit 8f93ddd87b1f2b705c204f51ba1365a6b7a7f547
+Subproject commit c6b46ae2acba046f2c1c3f26e862134de0df846a
diff --git a/piclib/picrin/base.scm b/piclib/picrin/base.scm
index ba40aed0..f1ac5082 100644
--- a/piclib/picrin/base.scm
+++ b/piclib/picrin/base.scm
@@ -154,6 +154,8 @@
           string-copy!
           string-append
           string-fill!
+          string->list
+          list->string
           string=?
           string<?
           string>?
diff --git a/piclib/scheme/base.scm b/piclib/scheme/base.scm
index 711d9b41..4fdcf2bc 100644
--- a/piclib/scheme/base.scm
+++ b/piclib/scheme/base.scm
@@ -365,26 +365,6 @@
 
   ;; 6.7. Strings
 
-  (define (string->list string . opts)
-    (let ((start (if (pair? opts) (car opts) 0))
-          (end (if (>= (length opts) 2)
-                   (cadr opts)
-                   (string-length string))))
-      (do ((i start (+ i 1))
-           (res '()))
-          ((= i end)
-           (reverse res))
-        (set! res (cons (string-ref string i) res)))))
-
-  (define (list->string list)
-    (let ((len (length list)))
-      (let ((v (make-string len)))
-        (do ((i 0 (+ i 1))
-             (l list (cdr l)))
-            ((= i len)
-             v)
-          (string-set! v i (car l))))))
-
   (define (string . objs)
     (list->string objs))