Ticket #529: close-input-pipe-win.diff

File close-input-pipe-win.diff, 566 bytes (added by Mario Domenech Goulart, 13 years ago)

  • posixwin.scm 

    diff --git a/posixwin.scm b/posixwin.scm
index a7305e3..3c66074 100644
    a b EOF 
    11651165      (##sys#check-port port 'close-input-pipe)
    11661166      (let ((r (##core#inline "close_pipe" port)))
    11671167        (##sys#update-errno)
    1168         (when (eq? -1 r) (##sys#signal-hook #:file-error 'close-input-pipe "error while closing pipe" port)) ) ) )
     1168        (when (eq? -1 r) (##sys#signal-hook #:file-error 'close-input-pipe "error while closing pipe" port))
     1169        r) ) )
    11691170  (set! close-output-pipe close-input-pipe) )
    11701171
    11711172(define call-with-input-pipe