Page 1 of 1

Need a peek for WINDOWS

Posted: Mon Sep 13, 2021 3:26 pm
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.