From 9e50df5c44824635c4796cd5897ae306e644101f Mon Sep 17 00:00:00 2001
From: alex-eg <alexey.e.egorov@gmail.com>
Date: Thu, 30 Oct 2025 12:23:03 +0300
Subject: [PATCH] add malformed fn form match case in fmt-c-writer

Spent like 10 minutes trying to understand why my fn pointer is being
fucked up in test case. Turned out I was missing return type, and
whole fn pointer type fall through down to defaut case.
---
 fmt-c-writer.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/fmt-c-writer.scm b/fmt-c-writer.scm
index c3c42f3..6f3feb9 100644
--- a/fmt-c-writer.scm
+++ b/fmt-c-writer.scm
@@ -126,6 +126,8 @@
          `(%array ,(walk-type (maybe-unwrap-type array-type)))))
     (('fn arglist ret-type)
      `(%fun ,(walk-type ret-type) ,(walk-arglist arglist)))
+    (('fn . _)
+     (assert #f "Malformed function type form"))
 
     ;; Special case: nested structs/unions
     ((or ('struct . _)