diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-05-02 08:59:57 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-05-03 17:45:29 +0200 |
| commit | a8f3424b25cbbc585126420bcc1434c4a2398588 (patch) | |
| tree | 3077ac67697d9cb2cff83383239efe351b3fb7ae /tests/syscalls.scm | |
| parent | 0a17fd7c0b82ac315b68c88e6f206e0051dcd661 (diff) | |
| download | gnu-guix-a8f3424b25cbbc585126420bcc1434c4a2398588.tar gnu-guix-a8f3424b25cbbc585126420bcc1434c4a2398588.tar.gz | |
syscalls: Wrap TCSA* constants in 'tcsetattr-action' macro.
* guix/build/syscalls.scm (tcsetattr-action): New macro.
(TCSANOW, TCSADRAIN, TCSAFLUSH): Remove.
(tcsetattr): Adjust docstring accordingly.
* tests/syscalls.scm ("tcsetattr"): Adjust accordingly.
Diffstat (limited to 'tests/syscalls.scm')
| -rw-r--r-- | tests/syscalls.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/syscalls.scm b/tests/syscalls.scm index ab1e13984d..0b73fb4b0c 100644 --- a/tests/syscalls.scm +++ b/tests/syscalls.scm @@ -281,7 +281,7 @@ (test-assert "tcsetattr" (let ((first (tcgetattr 0))) - (tcsetattr 0 TCSANOW first) + (tcsetattr 0 (tcsetattr-action TCSANOW) first) (equal? first (tcgetattr 0)))) (test-assert "terminal-window-size ENOTTY" |