suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Recording design decision

Browse Source 
svn: r6649
This commit is contained in:
Jay McCarthy 2007-06-13 21:24:24 +00:00
parent e86b8c99cc
commit ba354b9b2b
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/web-server/dispatchers/filesystem-map.ss
View File

@ -24,7 +24,6 @@
; Build a path ; Build a path
(apply build-path* (apply build-path*
; Remove all ".."s ; Remove all ".."s
; XXX Should error?
(strip-prefix-ups (strip-prefix-ups
(map (lambda (p) (map (lambda (p)
(if (and (string? p) (string=? "" p)) (if (and (string? p) (string=? "" p))

2
collects/web-server/docs/reference/dispatchers.scrbl
View File

@ -70,7 +70,7 @@ URLs to paths on the filesystem.
url-path?]{ url-path?]{
The @scheme[url-path?] returned by this procedure considers the root The @scheme[url-path?] returned by this procedure considers the root
URL to be @scheme[base]. It ensures that @scheme[".."]s in the URL URL to be @scheme[base]. It ensures that @scheme[".."]s in the URL
do not escape the @scheme[base].} do not escape the @scheme[base] and removes them silently otherwise.}
@defproc[(make-url->valid-path (url->path url->path?)) @defproc[(make-url->valid-path (url->path url->path?))
url->path?]{ url->path?]{