From 839a6cb3508e8fbdfb97407c01f52a46130e764b Mon Sep 17 00:00:00 2001
From: alex-eg <alexey.e.egorov@gmail.com>
Date: Mon, 9 Jun 2025 00:27:21 +0300
Subject: [PATCH] don't need map here, for-each is enough

---
 sexc.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/sexc.scm b/sexc.scm
index bc35d0e..6e1c920 100644
--- a/sexc.scm
+++ b/sexc.scm
@@ -85,10 +85,10 @@
         (read-forms (cons r acc)))))
 
 (define (emit-c forms)
-  (map (lambda (form)
-         (fmt #t (c-expr form))
-         (fmt #t "\n"))
-       forms))
+  (for-each (lambda (form)
+              (fmt #t (c-expr form))
+              (fmt #t "\n"))
+            forms))
 
 ;;; Main function facilities