From 6318df82e5f3b717c6e6c221b816232454fb9378 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Wed, 23 May 2012 15:37:54 -0400
Subject: [PATCH] Drop the now-redundant " " argument from existing uses of
 `string-join'.

---
 collects/help/help-utils.rkt                      | 2 +-
 collects/meta/props                               | 3 +--
 collects/plot/common/format.rkt                   | 2 +-
 collects/plot/common/math.rkt                     | 4 ++--
 collects/scribblings/main/private/make-search.rkt | 2 +-
 collects/tests/eli-tester.rkt                     | 2 +-
 collects/typed-racket/types/printer.rkt           | 2 +-
 collects/web-server/http/response.rkt             | 1 -
 8 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/collects/help/help-utils.rkt b/collects/help/help-utils.rkt
index 0694a91ec7..9fe53e236b 100644
--- a/collects/help/help-utils.rkt
+++ b/collects/help/help-utils.rkt
@@ -17,7 +17,7 @@
 (provide search-for find-help find-help/lib go-to-main-page)
 
 (define (search-for strs)
-  (perform-search (string-join strs " ")))
+  (perform-search (string-join strs)))
 
 (define-namespace-anchor anchor)
 
diff --git a/collects/meta/props b/collects/meta/props
index e980324969..b30b4dd69d 100755
--- a/collects/meta/props
+++ b/collects/meta/props
@@ -511,8 +511,7 @@ path/s is either such a string or a list of them.
                                            [(symbol? x) (symbol->string x)]
                                            [(string? x) x]
                                            [else (bad)]))
-                                   cmd)
-                              " ")])))
+                                   cmd))])))
   ;; --------------------
   (make-prop
    'drdr:timeout
diff --git a/collects/plot/common/format.rkt b/collects/plot/common/format.rkt
index a5b76e35e4..b6e26df6f2 100644
--- a/collects/plot/common/format.rkt
+++ b/collects/plot/common/format.rkt
@@ -163,7 +163,7 @@
           [(symbol? a)   (symbol->string a)]
           [(real? a)     (real->plot-label a digits)]
           [(ivl? a)      (ivl->plot-label a)]
-          [(list? a)     (string-append "(" (string-join (map loop a) " ") ")")]
+          [(list? a)     (string-append "(" (string-join (map loop a)) ")")]
           [(cons? a)     (string-append "(" (loop (car a)) " . " (loop (cdr a)) ")")]
           [(boolean? a)  (if a "true" "false")]
           [(char? a)     (list->string (list a))]
diff --git a/collects/plot/common/math.rkt b/collects/plot/common/math.rkt
index 2ef575eaa2..311daea418 100644
--- a/collects/plot/common/math.rkt
+++ b/collects/plot/common/math.rkt
@@ -223,7 +223,7 @@
     [(f v . vs)  (define ns (cons (vector-length v) (map vector-length vs)))
                  (unless (apply equal?* ns)
                    (error 'vector-andmap "all vectors must have same size; arguments were ~e ~e ~e"
-                          f v (string-join (map (λ (v) (format "~e" v)) vs) " ")))
+                          f v (string-join (map (λ (v) (format "~e" v)) vs))))
                  (let/ec break
                    (define ess (apply map list (map vector->list vs)))
                    (for ([e  (in-vector v)] [es  (in-list ess)])
@@ -239,7 +239,7 @@
     [(f v . vs)  (define ns (cons (vector-length v) (map vector-length vs)))
                  (unless (apply equal?* ns)
                    (error 'vector-andmap "all vectors must have same size; arguments were ~e ~e ~e"
-                          f v (string-join (map (λ (v) (format "~e" v)) vs) " ")))
+                          f v (string-join (map (λ (v) (format "~e" v)) vs))))
                  (let/ec break
                    (define ess (apply map list (map vector->list vs)))
                    (for ([e  (in-vector v)] [es  (in-list ess)])
diff --git a/collects/scribblings/main/private/make-search.rkt b/collects/scribblings/main/private/make-search.rkt
index 9e1f53450b..57ef7954c2 100644
--- a/collects/scribblings/main/private/make-search.rkt
+++ b/collects/scribblings/main/private/make-search.rkt
@@ -91,7 +91,7 @@
     (for/list ([i (get-index-entries sec ri)] [idx (in-naturals)])
       ;; i is (list tag (text ...) (element ...) index-desc)
       (define-values (tag texts elts desc) (apply values i))
-      (define text (string-downcase (string-join texts " ")))
+      (define text (string-downcase (string-join texts)))
       (define-values (href html)
         (let* ([e (add-between elts ", ")]
                ;; !!HACK!! The index entry for methods should have the extra
diff --git a/collects/tests/eli-tester.rkt b/collects/tests/eli-tester.rkt
index 7206387f6a..eb50ec0630 100644
--- a/collects/tests/eli-tester.rkt
+++ b/collects/tests/eli-tester.rkt
@@ -22,7 +22,7 @@
      (format "~e" x)]
     [(list 'values xs ...)
      (string-append "(values "
-                    (string-join (map (lambda (x) (format "~e" x)) xs) " ")
+                    (string-join (map (lambda (x) (format "~e" x)) xs))
                     ")")]
     [(list 'error err val)
      (cond [(procedure? err) (format "error satisfying ~.s" err)]
diff --git a/collects/typed-racket/types/printer.rkt b/collects/typed-racket/types/printer.rkt
index 334eac1d99..8e556d0897 100644
--- 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
diff --git a/collects/web-server/http/response.rkt b/collects/web-server/http/response.rkt
index ffdd047132..19f9eb5a35 100644
--- a/collects/web-server/http/response.rkt
+++ b/collects/web-server/http/response.rkt
@@ -5,7 +5,6 @@
          racket/list
          racket/match
          (only-in srfi/1/list fold)
-         (only-in srfi/13/string string-join)
          xml/xml
          web-server/private/connection-manager
          web-server/http/request-structs