Changeset 29879 in project


Ignore:
Timestamp:
10/09/13 11:58:11 (8 years ago)
Author:
sjamaan
Message:

http-client: Fix char-ready? for delimited input port (returns #t on EOF) and ensure read-line always returns EOF when we're at the end

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/http-client/trunk/http-client.scm

    r29870 r29879  
    205205                 char)))
    206206         (lambda ()                     ; char-ready?
    207            (if (= pos len)
    208                #f
    209                (char-ready? port)))
     207           (or (= pos len) (char-ready? port)))
    210208         (lambda ()                     ; close
    211209           (close-input-port port))
     
    218216             bytes-read))
    219217         (lambda (p limit)              ; read-line
    220            (let* ((bytes-left (- len pos))
    221                   (limit (min (or limit bytes-left) bytes-left))
    222                   (line (read-line port limit)))
    223              (unless (eof-object? line)
    224                (set! pos (+ pos (string-length line))))
    225              line))))))
     218           (if (= pos len)
     219               #!eof
     220               (let* ((bytes-left (- len pos))
     221                      (limit (min (or limit bytes-left) bytes-left))
     222                      (line (read-line port limit)))
     223                 (unless (eof-object? line)
     224                         (set! pos (+ pos (string-length line))))
     225                 line)))))))
    226226
    227227(define discard-remaining-data!
Note: See TracChangeset for help on using the changeset viewer.