Ticket #263: sendfile.scm.diff
File sendfile.scm.diff, 767 bytes (added by , 14 years ago) |
---|
-
sendfile.scm
292 292 (let* ((buffsize (read-write-buffer-size)) 293 293 (buffer (make-string buffsize)) 294 294 (write-timeout (write-timeout)) 295 (write/offset (foreign-lambda* int ((int dst) ( c-stringbuff) (unsigned-integer offset) (unsigned-integer bytes))295 (write/offset (foreign-lambda* int ((int dst) (nonnull-scheme-pointer buff) (unsigned-integer offset) (unsigned-integer bytes)) 296 296 "C_return(write(dst,buff + offset,bytes));")) 297 297 (write-bytes (lambda (size) 298 298 (let loop ((left size) (offset 0))