From b222cfe4c37202b38f6643a47e1512acc9bbe03d Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Fri, 22 Mar 2002 10:23:34 +0000
Subject: [PATCH] Default argument for tty-info as promised in the manual.

---
 scsh/tty.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scsh/tty.scm b/scsh/tty.scm
index f3008f3..cf8327c 100644
--- a/scsh/tty.scm
+++ b/scsh/tty.scm
@@ -107,8 +107,9 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Retrieve tty-info bits from a tty. Arg defaults to current input port.
 
-(define (tty-info fdport)
-  (let ((control-chars (make-string num-ttychars)))
+(define (tty-info . maybe-fdport)
+  (let ((control-chars (make-string num-ttychars))
+	(fdport (:optional maybe-fdport (current-input-port))))
     (apply 
      (lambda (iflag oflag cflag lflag ispeed-code ospeed-code)
       (make-%tty-info control-chars