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

up

Browse Source 
svn: r10214
This commit is contained in:
Jay McCarthy 2008-06-11 03:19:14 +00:00
parent 2b1507220f
commit c22038fd3f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,5 +48,5 @@
(define-values (p w/o-base) (define-values (p w/o-base)
(url->path (url-replace-path (lambda _ up) u))) (url->path (url-replace-path (lambda _ up) u)))
(unless (or (file-exists? p) (link-exists? p)) (unless (or (file-exists? p) (link-exists? p))
(raise (make-exn:fail:filesystem:exists (string->immutable-string "No valid path") (current-continuation-marks)))) (raise (make-exn:fail:filesystem:exists (string->immutable-string (format "No valid path: ~a" p)) (current-continuation-marks))))
(values p w/o-base)))) (values p w/o-base))))