Revert "syscalls: Adjust for glibc 2.34 and later."
This reverts commit 3c8b6fd94c
, which
would break bindings on glibc < 2.34 where those symbols are in
"libutil.so".
master
parent
af4f71318a
commit
c9984bfc50
|
@ -2321,7 +2321,8 @@ always a positive integer."
|
|||
(terminal-dimension window-size-rows port (const 25)))
|
||||
|
||||
(define openpty
|
||||
(let ((proc (syscall->procedure int "openpty" '(* * * * *))))
|
||||
(let ((proc (syscall->procedure int "openpty" '(* * * * *)
|
||||
#:library "libutil")))
|
||||
(lambda ()
|
||||
"Return two file descriptors: one for the pseudo-terminal control side,
|
||||
and one for the controlled side."
|
||||
|
@ -2342,7 +2343,8 @@ and one for the controlled side."
|
|||
(values (* head) (* inferior)))))))
|
||||
|
||||
(define login-tty
|
||||
(let* ((proc (syscall->procedure int "login_tty" (list int))))
|
||||
(let* ((proc (syscall->procedure int "login_tty" (list int)
|
||||
#:library "libutil")))
|
||||
(lambda (fd)
|
||||
"Make FD the controlling terminal of the current process (with the
|
||||
TIOCSCTTY ioctl), redirect standard input, standard output and standard error
|
||||
|
|
Reference in New Issue