diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 03:23:44 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 03:48:22 +0200 |
commit | 1976980d4a272fb7fc3694c734bfc6825edfc721 (patch) | |
tree | 8460db1176c64895e9968447588953fac85fe7d6 /module/vulgar/termios.scm | |
parent | Remove all inline use-modules. (diff) | |
download | calp-1976980d4a272fb7fc3694c734bfc6825edfc721.tar.gz calp-1976980d4a272fb7fc3694c734bfc6825edfc721.tar.xz |
Centralize (almost) all exports to :export in define-module.
Diffstat (limited to 'module/vulgar/termios.scm')
-rw-r--r-- | module/vulgar/termios.scm | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/module/vulgar/termios.scm b/module/vulgar/termios.scm index aa26da65..713c9875 100644 --- a/module/vulgar/termios.scm +++ b/module/vulgar/termios.scm @@ -10,7 +10,10 @@ :use-module (hnh util) :export (make-termios copy-termios - tcsetattr! tcgetattr! cfmakeraw!)) + tcsetattr! tcgetattr! cfmakeraw! + + iflag oflag cflag lflag line cc ispeed ospeed + )) @@ -106,14 +109,14 @@ (list-set! lst idx v) (set-list! t lst))))) -(define-public iflag (make-termios-accessor 0)) -(define-public oflag (make-termios-accessor 1)) -(define-public cflag (make-termios-accessor 2)) -(define-public lflag (make-termios-accessor 3)) -(define-public line (make-termios-accessor 4)) -(define-public cc (make-termios-accessor 5)) -(define-public ispeed (make-termios-accessor 6)) -(define-public ospeed (make-termios-accessor 7)) +(define iflag (make-termios-accessor 0)) +(define oflag (make-termios-accessor 1)) +(define cflag (make-termios-accessor 2)) +(define lflag (make-termios-accessor 3)) +(define line (make-termios-accessor 4)) +(define cc (make-termios-accessor 5)) +(define ispeed (make-termios-accessor 6)) +(define ospeed (make-termios-accessor 7)) |