suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix rackunit formatting

Browse Source 
Repairs mistake in 36f519fe64.
This commit is contained in:
Matthew Flatt 2012-08-14 13:53:21 -06:00
parent ae4613271c
commit 02d2b4dd62
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/rackunit/private/format.rkt
View File

@ -35,9 +35,9 @@
(cond (cond
[(= m n) s] [(= m n) s]
[(m . < . n) [(m . < . n)
(string-append (make-string (- n m) #\space) s)] (string-append s (make-string (- n m) #\space))]
[else [else
(substring s (- m n))])) (substring s n)]))
(define (display-check-info-name-value name value [value-printer write]) (define (display-check-info-name-value name value [value-printer write])
(display (string-pad-right (display (string-pad-right