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