From 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 23 Jun 2022 04:14:46 +0200 Subject: Normalize keyword syntax. --- module/vulgar/termios.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'module/vulgar/termios.scm') diff --git a/module/vulgar/termios.scm b/module/vulgar/termios.scm index 713c9875..3486e000 100644 --- a/module/vulgar/termios.scm +++ b/module/vulgar/termios.scm @@ -6,6 +6,7 @@ :use-module (ice-9 format) :use-module (ice-9 rdelim) :use-module (srfi srfi-9) ; records + :use-module (srfi srfi-88) :use-module (c cpp) :use-module (hnh util) :export (make-termios @@ -49,7 +50,7 @@ (ptr as-ptr) (list as-list)) -(define* (make-termios #:optional (data (empty-values struct-termios))) +(define* (make-termios optional: (data (empty-values struct-termios))) (%make-termios (make-c-struct struct-termios data) data)) (define (copy-termios termios) @@ -156,7 +157,7 @@ (define-foreign (tcsetattr int int *) → int (dynamic-func "tcsetattr" lib)) -(define* (tcsetattr! termios #:optional +(define* (tcsetattr! termios optional: (port (current-input-port)) (when TCSANOW)) (with-termios termios (lambda (ptr) (tcsetattr (port->fdes port) when ptr)))) @@ -165,7 +166,7 @@ (define-foreign (tcgetattr int *) → int (dynamic-func "tcgetattr" lib)) -(define* (tcgetattr! termios #:optional (port (current-input-port))) +(define* (tcgetattr! termios optional: (port (current-input-port))) (with-termios termios (lambda (ptr) (tcgetattr (port->fdes port) ptr)))) -- cgit v1.2.3