aboutsummaryrefslogtreecommitdiff
path: root/tests/termios.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/termios.scm')
-rwxr-xr-xtests/termios.scm19
1 files changed, 10 insertions, 9 deletions
diff --git a/tests/termios.scm b/tests/termios.scm
index 3d5ef9d1..22d8e242 100755
--- a/tests/termios.scm
+++ b/tests/termios.scm
@@ -7,15 +7,16 @@
;;; Code:
-(use-modules (terminal termios)
- ((util) :select (mod!))
- ((srfi srfi-60)
- :renamer (lambda (symb)
- (case symb
- ((bitwise-ior) '||)
- ((bitwise-not) '~)
- ((bitwise-and) '&)
- (else symb)))))
+(((util) mod!)
+ ((vulgar termios)
+ make-termios copy-termios
+ lflag
+ tcgetattr! tcsetattr!
+ ECHO ICANON)
+ ((srfi srfi-60)
+ (bitwise-ior . ||)
+ (bitwise-not . ~)
+ (bitwise-and . &)))
(define-syntax-rule (&= lvalue val)
(mod! lvalue (lambda (v) (& v val))))