From c4778aa49c002faca892439f49f86a931870076d Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 8 Oct 2001 17:33:13 +0000
Subject: [PATCH] Fixed broken usage of string-join.

---
 httpd-handlers.scm | 4 ++--
 rfc822.scm         | 6 +++---
 rman-gateway.scm   | 2 +-
 uri.scm            | 2 +-
 4 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/httpd-handlers.scm b/httpd-handlers.scm
index 9e521cc..8178242 100644
--- a/httpd-handlers.scm
+++ b/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)))))
 
diff --git a/rfc822.scm b/rfc822.scm
index df091ae..e729128 100644
--- a/rfc822.scm
+++ b/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")))))
 
 
 
diff --git a/rman-gateway.scm b/rman-gateway.scm
index acd527a..84c18ba 100644
--- a/rman-gateway.scm
+++ b/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)))))
diff --git a/uri.scm b/uri.scm
index 9454f58..d46347e 100644
--- a/uri.scm
+++ b/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