Changeset 12625 in project for chicken


Ignore:
Timestamp:
11/28/08 06:53:23 (11 years ago)
Author:
Alex Shinn
Message:

Fixing bug in ##sys#custom-input-port which caused char-ready? to
always return true for any process ports.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/posixunix.scm

    r11989 r12625  
    16081608            [ready?
    16091609              (lambda ()
    1610                 (when (fx= -1 (##sys#file-select-one fd))
    1611                   (posix-error #:file-error loc "cannot select" fd nam) ) )]
     1610                (let ((res (##sys#file-select-one fd)))
     1611                  (if (fx= -1 res)
     1612                      (if (fx= _errno _ewouldblock)
     1613                          #f
     1614                          (posix-error #:file-error loc "cannot select" fd nam))
     1615                      (fx= 1 res))))]
    16121616            [peek
    16131617              (lambda ()
Note: See TracChangeset for help on using the changeset viewer.