From f50f97fb8e050cc050c33ccf0d851b2437def68c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 1 Mar 2022 03:57:53 +0100
Subject: Remove case*.

It has its uses, but like others, its extra weight.
---
 module/vulgar/termios.scm | 40 ++++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

(limited to 'module/vulgar/termios.scm')

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
-- 
cgit v1.2.3