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

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)
 

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

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))]

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)])

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

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)]

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

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