From c3fea1f76528403c6d0198a1ca70055b354f1a74 Mon Sep 17 00:00:00 2001 From: Alex Shinn 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