Revision: 6017 Author: ek.kato Date: Mon Sep 28 22:23:36 2009 Log: * scm/http-client.scm (http:read-header) : Follow changes in r6002.
http://code.google.com/p/uim/source/detail?r=6017 Modified: /trunk/scm/http-client.scm ======================================= --- /trunk/scm/http-client.scm Sat Sep 12 00:08:33 2009 +++ /trunk/scm/http-client.scm Mon Sep 28 22:23:36 2009 @@ -138,7 +138,7 @@ (define (http:read-header port) (let loop ((str (file-read-line port)) (rest '())) - (if (or (fileio-eof-object? str) + (if (or (eof-object? str) (null? str) (string=? "\r" str)) (reverse rest)
