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

Fixed optional-arg bug in open-control-tty.

This commit is contained in:
shivers 1995-10-27 11:47:53 +00:00
parent 8e510db64c
commit 325407b9fb
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/pty.scm
View File

@ -21,8 +21,7 @@
(let* ((process (fork (lambda ()
(close-input-port pty-in)
(become-session-leader)
(let ((tty (open-control-tty ttyname
open/read+write)))
(let ((tty (open-control-tty ttyname)))
(move->fdes tty 0)
(dup->outport tty 1)
(set-port-buffering (dup->outport tty 2)

2
scsh/tty.scm
View File

@ -318,7 +318,7 @@
;;; This limted functionality is about all we can provide portably across BSD,
;;; SunOS, and SVR4.
(define (open-control-tty ttyname maybe-flags)
(define (open-control-tty ttyname . maybe-flags)
(let ((flags (optional-arg maybe-flags open/read+write)))
(receive (errno fd) (open-control-tty/errno ttyname flags)
(if errno