Need a peek for WINDOWS

For the Compleat Fan
Post Reply
IVShilov
Posts: 23
Joined: Wed Apr 12, 2017 1:58 am

Need a peek for WINDOWS

Post by IVShilov »

Hello.
It was big PITA when I found that win-version of newlisp have no peek.
But I found a workaround (viewtopic.php?f=9&t=5139) :

Code: Select all

(define (peek-pipe fd)
  (letn (pos (seek fd)
	     size (seek fd -1))
    (seek fd pos)
    size
    ))
May be it's better place for posting that.

Post Reply