diff options
| author | Marius Bakke <marius@gnu.org> | 2022-09-02 00:05:52 +0200 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2022-09-08 21:40:00 +0200 |
| commit | 3c8b6fd94ceb1e898216929e8768fb518dbf1de9 (patch) | |
| tree | 5928d19ac98e421f24878ca0f79ce4040da86940 /guix | |
| parent | 25b30622b4a77cd4b2965b9d62fa310a22413d54 (diff) | |
syscalls: Adjust for glibc 2.34 and later.
* guix/build/syscalls.scm (openpty, login-tty): Remove #:library argument, as
these functions have been moved to libc.so.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/build/syscalls.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index 7842b0a9fc..0f939c23ad 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -2321,8 +2321,7 @@ always a positive integer." (terminal-dimension window-size-rows port (const 25))) (define openpty - (let ((proc (syscall->procedure int "openpty" '(* * * * *) - #:library "libutil"))) + (let ((proc (syscall->procedure int "openpty" '(* * * * *)))) (lambda () "Return two file descriptors: one for the pseudo-terminal control side, and one for the controlled side." @@ -2343,8 +2342,7 @@ and one for the controlled side." (values (* head) (* inferior))))))) (define login-tty - (let* ((proc (syscall->procedure int "login_tty" (list int) - #:library "libutil"))) + (let* ((proc (syscall->procedure int "login_tty" (list int)))) (lambda (fd) "Make FD the controlling terminal of the current process (with the TIOCSCTTY ioctl), redirect standard input, standard output and standard error |