Ticket #182: 0001-posixwin-implement-terminal-port.patch

File 0001-posixwin-implement-terminal-port.patch, 724 bytes (added by Jim Ursetto, 14 years ago)

  • posixwin.scm 

    From 4e0612f5400daed03c089ff10ebf3644253b55b0 Mon Sep 17 00:00:00 2001
From: zbigniew <zbigniewsz@gmail.com>
Date: Thu, 4 Mar 2010 19:11:18 -0600
Subject: [PATCH] posixwin: implement terminal-port?

---
 posixwin.scm |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/posixwin.scm b/posixwin.scm
index ea8bf0b..80cebad 100644
    a b EOF 
    17681768
    17691769(define (terminal-port? port)
    17701770  (##sys#check-port port 'terminal-port?)
    1771   #f)
     1771  (let ([fp (##sys#peek-unsigned-integer port 0)])
     1772    (and (not (eq? 0 fp)) (##core#inline "C_tty_portp" port) ) ) )
    17721773
    17731774(define-foreign-variable _iofbf int "_IOFBF")
    17741775(define-foreign-variable _iolbf int "_IOLBF")