From 4e0612f5400daed03c089ff10ebf3644253b55b0 Mon Sep 17 00:00:00 2001 From: zbigniew 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/posixwin.scm +++ b/posixwin.scm @@ -1768,7 +1768,8 @@ EOF (define (terminal-port? port) (##sys#check-port port 'terminal-port?) - #f) + (let ([fp (##sys#peek-unsigned-integer port 0)]) + (and (not (eq? 0 fp)) (##core#inline "C_tty_portp" port) ) ) ) (define-foreign-variable _iofbf int "_IOFBF") (define-foreign-variable _iolbf int "_IOLBF") -- 1.7.0