Removing debug output.

This commit is contained in:
Alex Shinn 2014-02-18 20:15:57 +09:00
parent 28936e4db0
commit e36c9b137b

View file

@ -55,7 +55,6 @@
(define (read-chunk in) (define (read-chunk in)
(let* ((line (read-line in)) (let* ((line (read-line in))
(n (and (string? line) (string->number line 16)))) (n (and (string? line) (string->number line 16))))
(display "read-chunk ") (write line) (newline)
(cond (cond
((not (and (integer? n) (<= 0 n http-chunked-size-limit))) ((not (and (integer? n) (<= 0 n http-chunked-size-limit)))
(error "invalid chunked size line" line)) (error "invalid chunked size line" line))