scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Default argument for tty-info as promised in the manual.

This commit is contained in:
mainzelm 2002-03-22 10:23:34 +00:00
parent c9c0535f41
commit b222cfe4c3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/tty.scm
View File

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