Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-15 00:47:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Using string-copy for single argument substring.

Browse source
This commit is contained in:
Alex Shinn 2012-11-23 16:19:40 +09:00
parent 9ed2f9a27a
commit 209c96e305
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/test.scm
View file

@ -521,7 +521,7 @@
(or (test-group-ref (current-test-group) 'count) 0) (or (test-group-ref (current-test-group) 'count) 0)
1) 1)
(current-column-width)))) (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 ;; update global failure count for exit status
(cond (cond
((or (eq? status 'FAIL) (eq? status 'ERROR)) ((or (eq? status 'FAIL) (eq? status 'ERROR))