diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-01 03:57:53 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-07 21:14:09 +0200 |
| commit | f50f97fb8e050cc050c33ccf0d851b2437def68c (patch) | |
| tree | 84abc4ae86f7aacb4e2ea9924acef0e64941e0a7 /module/vulgar | |
| parent | Move each imported symbol to own line for easier removal. (diff) | |
| download | calp-f50f97fb8e050cc050c33ccf0d851b2437def68c.tar.gz calp-f50f97fb8e050cc050c33ccf0d851b2437def68c.tar.xz | |
Remove case*.
It has its uses, but like others, its extra weight.
Diffstat (limited to 'module/vulgar')
| -rw-r--r-- | module/vulgar/termios.scm | 40 |
1 files changed, 20 insertions, 20 deletions
diff --git a/module/vulgar/termios.scm b/module/vulgar/termios.scm index 3486e000..ddd8920f 100644 --- a/module/vulgar/termios.scm +++ b/module/vulgar/termios.scm @@ -69,26 +69,26 @@ ((record-modifier <termios> 'ptr) t (make-c-struct struct-termios v))) (define (resolve-baud-speed n) - (case* n - ((B0) 0) - ((B50) 50) - ((B75) 75) - ((B110) 110) - ((B134) 134) - ((B150) 150) - ((B200) 200) - ((B300) 300) - ((B600) 600) - ((B1200) 1200) - ((B1800) 1800) - ((B2400) 2400) - ((B4800) 4800) - ((B9600) 9600) - ((B19200) 19200) - ((B38400) 38400) - ((B57600) 57600) - ((B115200) 115200) - ((B230400) 230400))) + (cond + ((= n B0) 0) + ((= n B50) 50) + ((= n B75) 75) + ((= n B110) 110) + ((= n B134) 134) + ((= n B150) 150) + ((= n B200) 200) + ((= n B300) 300) + ((= n B600) 600) + ((= n B1200) 1200) + ((= n B1800) 1800) + ((= n B2400) 2400) + ((= n B4800) 4800) + ((= n B9600) 9600) + ((= n B19200) 19200) + ((= n B38400) 38400) + ((= n B57600) 57600) + ((= n B115200) 115200) + ((= n B230400) 230400))) ;; TODO bit fields should display what their fields mean |