Changeset 11982 in project


Ignore:
Timestamp:
09/23/08 22:34:22 (12 years ago)
Author:
sjamaan
Message:

Implement fix for obvious small bug in syntax. Is this the fix meant in the comment?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/sendfile/trunk/sendfile.scm

    r11955 r11982  
    346346  (define (sendfile src dst)
    347347    (let ((size (file-size src)))
    348       (if (and (port? dst) (not port-has-fd? dst))
     348      (if (and (port? dst) (not (port-has-fd? dst)))
    349349          (impl:read-write-loop/port src dst size)
    350350          (let ((src (->fileno src))
Note: See TracChangeset for help on using the changeset viewer.