From f8dd3392021754225dae6925d0931ff08d06dd00 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 20 Dec 2021 22:06:44 +0100
Subject: Remove procedure map-each

Was only used once, and wasn't even optimized.
---
 module/vulgar/termios.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'module/vulgar')

diff --git a/module/vulgar/termios.scm b/module/vulgar/termios.scm
index 75181ff3..f88882c9 100644
--- a/module/vulgar/termios.scm
+++ b/module/vulgar/termios.scm
@@ -102,7 +102,7 @@
 ;; Macro for creating accessor bindings for slots in a list, which are wrapped
 ;; inside a <termios> record. Called exactly once below.
 (define-macro (create-bindings! . symbols)
-  `(begin ,@(map-each
+  `(begin ,@(map
              (lambda (symb i)
                `(define-public ,symb
                   (make-procedure-with-setter
@@ -110,7 +110,8 @@
                    (lambda (t v) (let ((lst (as-list t)))
                               (list-set! lst ,i v)
                               (set-list! t lst))))))
-             symbols)))
+             symbols
+             (iota (length symbols)))))
 
 (create-bindings! ; accessors
  iflag oflag cflag lflag line cc ispeed ospeed)
-- 
cgit v1.2.3