scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed broken usage of string-join.

This commit is contained in:
mainzelm 2001-10-08 17:33:13 +00:00
parent af7288f535
commit c4778aa49c
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
httpd-handlers.scm
View File

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

6
rfc822.scm
View File

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

2
rman-gateway.scm
View File

@ -103,7 +103,7 @@
((find-man-file key section "man" man-path) => nroff-n-decode) ((find-man-file key section "man" man-path) => nroff-n-decode)
(else (else
(if (not (zero? (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) (run (,@rman/man ,@(if section `(,section) '()) ,key)
(< /dev/null) (< /dev/null)
(> 2 /dev/null))))) (> 2 /dev/null)))))

2
uri.scm
View File

@ -262,7 +262,7 @@
;;; (uri-path-list->path (map escape-uri pathlist)) ;;; (uri-path-list->path (map escape-uri pathlist))
(define (uri-path-list->path plist) (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 ;;; Remove . and <segment>/.. elements from path. The result is a