Fixed optional-arg bug in open-control-tty.
This commit is contained in:
parent
8e510db64c
commit
325407b9fb
|
@ -21,8 +21,7 @@
|
||||||
(let* ((process (fork (lambda ()
|
(let* ((process (fork (lambda ()
|
||||||
(close-input-port pty-in)
|
(close-input-port pty-in)
|
||||||
(become-session-leader)
|
(become-session-leader)
|
||||||
(let ((tty (open-control-tty ttyname
|
(let ((tty (open-control-tty ttyname)))
|
||||||
open/read+write)))
|
|
||||||
(move->fdes tty 0)
|
(move->fdes tty 0)
|
||||||
(dup->outport tty 1)
|
(dup->outport tty 1)
|
||||||
(set-port-buffering (dup->outport tty 2)
|
(set-port-buffering (dup->outport tty 2)
|
||||||
|
|
|
@ -318,7 +318,7 @@
|
||||||
;;; This limted functionality is about all we can provide portably across BSD,
|
;;; This limted functionality is about all we can provide portably across BSD,
|
||||||
;;; SunOS, and SVR4.
|
;;; 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)))
|
(let ((flags (optional-arg maybe-flags open/read+write)))
|
||||||
(receive (errno fd) (open-control-tty/errno ttyname flags)
|
(receive (errno fd) (open-control-tty/errno ttyname flags)
|
||||||
(if errno
|
(if errno
|
||||||
|
|
Loading…
Reference in New Issue