fix rackunit formatting

Repairs mistake in 36f519fe64.
2012-08-14 13:53:21 -06:00 · 2012-08-14 13:53:21 -06:00 · 02d2b4dd62
commit 02d2b4dd62
parent ae4613271c
1 changed files with 2 additions and 2 deletions
--- a/collects/rackunit/private/format.rkt
+++ b/collects/rackunit/private/format.rkt
@ -35,9 +35,9 @@
  (cond
   [(= m n) s]
   [(m . < . n)
-    (string-append (make-string (- n m) #\space) s)]
+    (string-append s (make-string (- n m) #\space))]
   [else
-    (substring s (- m n))]))
+    (substring s n)]))

 (define (display-check-info-name-value name value [value-printer write])
  (display (string-pad-right