Ticket #263: sendfile.scm.diff

File sendfile.scm.diff, 767 bytes (added by felix winkelmann, 11 years ago)
  • sendfile.scm

     
    292292    (let* ((buffsize (read-write-buffer-size))
    293293           (buffer (make-string buffsize))
    294294           (write-timeout (write-timeout))
    295            (write/offset (foreign-lambda* int ((int dst) (c-string buff) (unsigned-integer offset) (unsigned-integer bytes))
     295           (write/offset (foreign-lambda* int ((int dst) (nonnull-scheme-pointer buff) (unsigned-integer offset) (unsigned-integer bytes))
    296296                                          "C_return(write(dst,buff + offset,bytes));"))
    297297           (write-bytes (lambda (size)
    298298                          (let loop ((left size) (offset 0))