peek for WINDOWS

[IVShilov]

Hi there.

I found that it works like peek on WINDOWS:

Code Select Expand

(define (peek-pipe fd)
  (letn (pos (seek fd)
    size (seek fd -1))
    (seek fd pos)
    size
    ))
so now we can safely read a pipe from a subprocess without risk of blocking:

Code Select Expand

(define (read-pipe fd)
  (letn (buf "")
    (read fd buf (peek-pipe fd))
    buf
    ))

Can it be replacement for peek?

Any other comments?