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

Adding productive note about unhandled ranges

Browse Source 
svn: r6647
This commit is contained in:
Jay McCarthy 2007-06-13 21:19:58 +00:00
parent 8e5e738e60
commit 36063c4a5c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/web-server/dispatchers/dispatch-files.ss
View File

@ -11,7 +11,7 @@
(provide/contract (provide/contract
[interface-version dispatcher-interface-version?]) [interface-version dispatcher-interface-version?])
(provide make) (provide make)
;; looks-like-directory : str -> bool ;; looks-like-directory : str -> bool
;; to determine if is url style path looks like it refers to a directory ;; to determine if is url style path looks like it refers to a directory
(define (looks-like-directory? path) (define (looks-like-directory? path)
@ -44,9 +44,11 @@
+inf.0 +inf.0
(string->number end))) (string->number end)))
(output-file conn path method (path->mime-type path) (output-file conn path method (path->mime-type path)
startn endn)] startn endn)]
[r [r
; XXX: Unhandled range: r (fprintf (current-error-port)
"dispatch-files.ss: Received a range that was not parseable(~S). If you see this message, please file a PLT bug report."
r)
(output-file conn path method (path->mime-type path) (output-file conn path method (path->mime-type path)
0 +inf.0)])])] 0 +inf.0)])])]
[(and (directory-exists? path) [(and (directory-exists? path)