scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

rename READ-AND-DISCARD-TRAILER to DISCARD-TRAILER for naming consistency

This commit is contained in:
vibr 2005-04-20 11:40:23 +00:00
parent d06479ee4b
commit bccf27785d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/httpd/handler-lib.scm
View File

@ -123,7 +123,7 @@
(let read-chunks ((chunk-size (get-chunk-size inport)) (let read-chunks ((chunk-size (get-chunk-size inport))
(res "")) (res ""))
(if (= 0 chunk-size) ;last-chunk (if (= 0 chunk-size) ;last-chunk
(begin (read-and-discard-trailer inport); see comment *1 (begin (discard-trailer inport); see comment *1
res) res)
(let ((maybe-chunk-data (read-string chunk-size inport))) (let ((maybe-chunk-data (read-string chunk-size inport)))
(if maybe-chunk-data (if maybe-chunk-data
@ -168,7 +168,7 @@
chunk-size-int chunk-size-int
(fatal-syntax-error "Chunk-size within chunked entity body is incorrect or syntactically faulty")))))) (fatal-syntax-error "Chunk-size within chunked entity body is incorrect or syntactically faulty"))))))
(define (read-and-discard-trailer inport) (define (discard-trailer inport)
(with-fatal-error-handler (with-fatal-error-handler
(lambda (c decline) (lambda (c decline)
(fatal-syntax-error "Illegal RFC 822 field syntax within trailer of entity message body")) (fatal-syntax-error "Illegal RFC 822 field syntax within trailer of entity message body"))