From 951f96f340acfd822d538d787684ab0819f078bf Mon Sep 17 00:00:00 2001
From: alex-eg <alexey.e.egorov@gmail.com>
Date: Wed, 22 Oct 2025 22:31:03 +0300
Subject: [PATCH] add define support

---
 fmt-c-writer.scm | 1 +
 semen.scm        | 1 +
 2 files changed, 2 insertions(+)

diff --git a/fmt-c-writer.scm b/fmt-c-writer.scm
index 0b1fed7..869e2d7 100644
--- a/fmt-c-writer.scm
+++ b/fmt-c-writer.scm
@@ -256,6 +256,7 @@
     ((or ('struct . _)
          ('union . _)) (walk-struct form))
     (('enum . _) (walk-enum form))
+    (('define name . rest) `(%define ,(atom-to-fmt-c name) ,@rest))
     (else (walk-expr form))))
 
 (define (emit-c sex-forms)
diff --git a/semen.scm b/semen.scm
index b891d64..2751564 100644
--- a/semen.scm
+++ b/semen.scm
@@ -62,6 +62,7 @@
          ('pub 'var . _)
          ('extern 'var . _)) (process-global-var sex-form acc))
     (('include _) (cons sex-form acc))
+    (('define . _) (cons sex-form acc))
 
     (('import . modules)
      (semen-process-imports (get-public-forms modules) acc))