fix nested types producing wrong C code

2025-10-26 20:54:11 +03:00
parent 1ca7e2ee15
commit 576a0dcb79
2 changed files with 13 additions and 4 deletions
--- a/tests/fmt-c-writer.scm
+++ b/tests/fmt-c-writer.scm
@@ -64,6 +64,14 @@
   '(%var (struct suc) s)
   (walk-var '(var s (struct suc))))

+  (test
+   '(%var (const struct suc *) s s1)
+   (walk-var '(var s (* const struct suc) s1)))
+
+  (test
+   '(%var (const struct suc *) s s1)
+   (walk-var '(var s (* (const struct suc)) s1)))
+
  (test
   '(%var (struct suc) s (hoge piyo))
   (walk-var '(var s (struct suc) (hoge piyo))))