From 9e44e3d0e87629ed929a15c1672dfd78f31cc290 Mon Sep 17 00:00:00 2001 From: alex-eg Date: Wed, 22 Oct 2025 18:20:29 +0300 Subject: [PATCH] fix structure attributes --- fmt-c-writer.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fmt-c-writer.scm b/fmt-c-writer.scm index e3b9dd4..bb58b7f 100644 --- a/fmt-c-writer.scm +++ b/fmt-c-writer.scm @@ -194,13 +194,13 @@ (match form ((type (fields ...) . attrs) ; anonymous struct `(,type ,(process-struct-fields fields) - . ,(map atom-to-fmt-c attrs))) + . ,(tree-map atom-to-fmt-c attrs))) ((type name) ; simple 'struct whatever', like in variable def `(,type ,(atom-to-fmt-c name))) ((type name (fields ...) . attrs) `(,type ,(atom-to-fmt-c name) ,(process-struct-fields fields) - . ,(map atom-to-fmt-c attrs))) + . ,(tree-map atom-to-fmt-c attrs))) (else (error "Malformed aggregate definition " form)))) (define (walk-extern form)