Adding productive note about unhandled ranges

svn: r6647
2007-06-13 21:19:58 +00:00 · 2007-06-13 21:19:58 +00:00 · 36063c4a5c
commit 36063c4a5c
parent 8e5e738e60
1 changed files with 5 additions and 3 deletions
--- a/collects/web-server/dispatchers/dispatch-files.ss
+++ b/collects/web-server/dispatchers/dispatch-files.ss
@ -44,9 +44,11 @@
                     +inf.0
                     (string->number end)))               
               (output-file conn path method (path->mime-type path)
-                                    startn endn)]
+                            startn endn)]
              [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)
                            0 +inf.0)])])]
        [(and (directory-exists? path)