diff options
| author | Mark H Weaver <mhw@netris.org> | 2016-05-04 11:43:50 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2016-05-04 11:43:50 -0400 |
| commit | 4e9d04a80b2d8b1e07f78708dae76b13f3d421f6 (patch) | |
| tree | 18a163720f4c9fdd7a45d724c6584b065e216c6d /guix | |
| parent | ad1b7d8bafe96241fd87a74baec0a38ed4389e4b (diff) | |
| parent | 11057c4b58d766f358bc439690b9765bee735772 (diff) | |
| download | gnu-guix-4e9d04a80b2d8b1e07f78708dae76b13f3d421f6.tar gnu-guix-4e9d04a80b2d8b1e07f78708dae76b13f3d421f6.tar.gz | |
Merge branch 'master' into gnome-updates
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/build/syscalls.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index 4e543d70d8..a9cd6e93c8 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -110,9 +110,7 @@ termios-input-speed termios-output-speed local-flags - TCSANOW - TCSADRAIN - TCSAFLUSH + tcsetattr-action tcgetattr tcsetattr @@ -1059,9 +1057,11 @@ given an integer, returns the list of names of the constants that are or'd." (define EXTPROC #o0200000)) ;; "Actions" values for 'tcsetattr'. -(define TCSANOW 0) -(define TCSADRAIN 1) -(define TCSAFLUSH 2) +(define-bits tcsetattr-action + %unused-tcsetattr-action->symbols + (define TCSANOW 0) + (define TCSADRAIN 1) + (define TCSAFLUSH 2)) (define-record-type <termios> (termios input-flags output-flags control-flags local-flags @@ -1107,8 +1107,8 @@ given an integer, returns the list of names of the constants that are or'd." (define tcsetattr (let ((proc (syscall->procedure int "tcsetattr" (list int int '*)))) (lambda (fd actions termios) - "Use TERMIOS for the tty at FD. ACTIONS is one of 'TCSANOW', -'TCSADRAIN', or 'TCSAFLUSH'; see tcsetattr(3) for details." + "Use TERMIOS for the tty at FD. ACTIONS is one of of the values +produced by 'tcsetattr-action'; see tcsetattr(3) for details." (define bv (make-bytevector sizeof-termios)) |