diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
| commit | 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch) | |
| tree | c48c312e1d44306039fc00cfe4b5cd611d7f9a3b /module/vulgar | |
| parent | Remove procedure tabset. (diff) | |
| download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz | |
Normalize keyword syntax.
Diffstat (limited to 'module/vulgar')
| -rw-r--r-- | module/vulgar/components.scm | 6 | ||||
| -rw-r--r-- | module/vulgar/termios.scm | 7 |
2 files changed, 7 insertions, 6 deletions
diff --git a/module/vulgar/components.scm b/module/vulgar/components.scm index 3242ec8c..74420f18 100644 --- a/module/vulgar/components.scm +++ b/module/vulgar/components.scm @@ -1,7 +1,7 @@ (define-module (vulgar components) - #:use-module (datetime) - #:use-module (hnh util) - #:export (display-calendar-header!)) + :use-module (datetime) + :use-module (hnh util) + :export (display-calendar-header!)) (define (display-calendar-header! date) (let ((day (number->string (day date))) 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)))) |