Drop the now-redundant " " argument from existing uses of `string-join'.

original commit: 6318df82e5f3b717c6e6c221b816232454fb9378
2012-05-23 15:37:54 -04:00 · 2012-05-23 15:37:54 -04:00 · 96d373e278
commit 96d373e278
parent ece68f93e3
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-racket/types/printer.rkt
+++ b/collects/typed-racket/types/printer.rkt
@ -172,7 +172,7 @@
         [(list a b ...)
          (format "(case-> ~a ~a)"
                  (format-arr a)
-                  (string-join (map format-arr b) " "))]))]))
+                  (string-join (map format-arr b)))]))]))

 ;; print out a type
 ;; print-type : Type Port Boolean -> Void