pr8404

svn: r4960
2006-11-27 14:02:28 +00:00 · 2006-11-27 14:02:28 +00:00 · 5b9ccf32ae
commit 5b9ccf32ae
parent 2666723bd0
1 changed files with 1 additions and 1 deletions
--- a/collects/web-server/private/mime-types.ss
+++ b/collects/web-server/private/mime-types.ss
@ -19,7 +19,7 @@
      (with-input-from-file a-path
        (lambda ()
          (let loop ()
-            (match (read-line)
+            (match (read-line (current-input-port) 'any)
              [(? eof-object?)
               (void)]
              [(regexp #"^([^\t ]+)[\t ]+(.+)$"