From c3fea1f76528403c6d0198a1ca70055b354f1a74 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 26 Nov 2011 16:58:39 +0900
Subject: [PATCH] smarter string-copy for utf8

---
 lib/init-7.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/init-7.scm b/lib/init-7.scm
index 2634a34b..a5408ce2 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -415,7 +415,6 @@
 
 (define (string . args) (list->string args))
 (define (string-append . args) (string-concatenate args))
-(define (string-copy s) (substring s 0 (string-length s)))
 
 (define (string=? s1 s2) (eq? (string-cmp s1 s2 #f) 0))
 (define (string<? s1 s2) (< (string-cmp s1 s2 #f) 0))
@@ -1027,8 +1026,10 @@
 
 (cond-expand
  (utf-8
+  (define (string-copy s) (substring-cursor s 0 (string-size s)))
   (define string-cursor-end string-size))
  (else
+  (define (string-copy s) (substring s 0 (string-length s)))
   (define string-cursor-end string-length)
   (define string-cursor-ref string-ref)
   (define (string-cursor-next s i) (+ i 1))