From 209c96e3053815015845e6793880672bb6119361 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 23 Nov 2012 16:19:40 +0900 Subject: [PATCH] Using string-copy for single argument substring. --- lib/chibi/test.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm index 21072254..3803d013 100644 --- a/lib/chibi/test.scm +++ b/lib/chibi/test.scm @@ -521,7 +521,7 @@ (or (test-group-ref (current-test-group) 'count) 0) 1) (current-column-width)))) - (display (string-append "\n" (substring indent 4)))) + (display (string-append "\n" (string-copy indent 4)))) ;; update global failure count for exit status (cond ((or (eq? status 'FAIL) (eq? status 'ERROR))