From c9848151d072827d321eed09782b736da80f1903 Mon Sep 17 00:00:00 2001 From: alex-eg Date: Thu, 14 Aug 2025 14:35:50 +0300 Subject: [PATCH] generate void in empty argument lists --- fmt-c.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/fmt-c.scm b/fmt-c.scm index af1bf8e..3f35596 100644 --- a/fmt-c.scm +++ b/fmt-c.scm @@ -626,7 +626,9 @@ (else (error "missing type" x)))) (define (c-param-list ls) - (c-in-expr (fmt-join/dot c-param (lambda (dot) (dsp "...")) ls ", "))) + (if (null? ls) + (c-type 'void) + (c-in-expr (fmt-join/dot c-param (lambda (dot) (dsp "...")) ls ", ")))) (define (c-fun type name params . body) (cat (c-block (c-in-expr (c-prototype type name params))