Fixed broken usage of string-join.

httpd-handlers.scm

@@ -428,7 +428,7 @@
 
 	  (with-tag #t html ()
  	    (let ((title (string-append "Index of /"
-					(string-join (list file-path "/")))))
+					(string-join file-path "/"))))
 	      (with-tag #t head ()
 			(emit-title #t title))
 	      (with-tag #t body ()
@@ -516,7 +516,7 @@
     (lambda (root path-list)
       (let ((fname (if (null? path-list) root	; Bogus hack.
 		       (string-append (file-name-as-directory root)
-				      (string-join (list path-list "/"))))))
+				      (string-join path-list "/")))))
 	(and (not (regexp-exec dotdot-re fname))	; Check for .. subdir.
 	     fname)))))
 

rfc822.scm

@@ -173,7 +173,7 @@
   (let-optionals maybe-separator ((sep " "))
     (map (lambda (entry)
 	   (cons (car entry)
-		 (map (lambda (body) (string-join (list body sep)))
+		 (map (lambda (body) (string-join body sep))
 		      (cdr entry))))
 	 alist)))
 
@@ -206,8 +206,8 @@
   (let ((entry (assq name headers)))
     (and entry
 	 (pair? entry)
-	 (string-join (list (cadr entry)
-			    (:optional maybe-sep "\n"))))))
+	 (string-join (cadr entry)
+		      (:optional maybe-sep "\n")))))
 
 
 

rman-gateway.scm

@@ -103,7 +103,7 @@
    ((find-man-file key section "man" man-path) => nroff-n-decode)
    (else
     (if (not (zero?
-	      (with-env (("MANPATH" . ,(string-join (list man-path ":"))))
+	      (with-env (("MANPATH" . ,(string-join man-path ":")))
 	        (run (,@rman/man ,@(if section `(,section) '()) ,key)
 		     (< /dev/null)
 		     (> 2 /dev/null)))))

uri.scm

@@ -262,7 +262,7 @@
 ;;;     (uri-path-list->path (map escape-uri pathlist))
 
 (define (uri-path-list->path plist)
-  (string-join (list plist "/")))		; Insert slashes between elts of PLIST.
+  (string-join plist "/"))		; Insert slashes between elts of PLIST.
 
 
 ;;; Remove . and <segment>/.. elements from path.  The result is a