diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-27 01:07:50 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-27 01:07:50 +0200 |
| commit | 3d2b30f5c8bfb4363eeb676257c738dd596e6191 (patch) | |
| tree | 0de106805a542b7ea0e5339355b9eba5711c1fed /tests/termios.scm | |
| parent | Improve opt parsing in test runner. (diff) | |
| download | calp-3d2b30f5c8bfb4363eeb676257c738dd596e6191.tar.gz calp-3d2b30f5c8bfb4363eeb676257c738dd596e6191.tar.xz | |
Merge mod!:s functionality into set!
Diffstat (limited to 'tests/termios.scm')
| -rwxr-xr-x | tests/termios.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/termios.scm b/tests/termios.scm index f07d20a0..3fed5da3 100755 --- a/tests/termios.scm +++ b/tests/termios.scm @@ -7,7 +7,7 @@ ;;; Code: -(((util) mod!) +(((util) set!) ((vulgar termios) make-termios copy-termios lflag @@ -22,7 +22,7 @@ (define tty (open-input-file "/dev/tty")) (define-syntax-rule (&= lvalue val) - (mod! lvalue (lambda (v) (& v val)))) + (set! lvalue = ((lambda (v) (& v val))))) (define t (make-termios)) |