Ignore:
Timestamp:
11/28/08 07:20:26 (11 years ago)
Author:
Ivan Raikov
Message:

Backporting fix from Chicken 4.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/chicken-3/posixunix.scm

    r11243 r12626  
    16311631            [bufpos 0] )
    16321632        (let (
    1633             [ready?
    1634               (lambda ()
    1635                 (when (fx= -1 (##sys#file-select-one fd))
    1636                   (posix-error #:file-error loc "cannot select" fd nam) ) )]
     1633            [ready?
     1634             (lambda ()
     1635               (let ((res (##sys#file-select-one fd)))
     1636                 (if (fx= -1 res)
     1637                     (if (fx= _errno _ewouldblock)
     1638                         #f
     1639                         (posix-error #:file-error loc "cannot select" fd nam))
     1640                     (fx= 1 res))))]
    16371641            [peek
    16381642              (lambda ()
Note: See TracChangeset for help on using the changeset viewer.