pkulev/sex
1
0
Fork 0
forked from alex-eg/sex
Code Pull Requests Activity

fix fmt-c while without body

Browse Source
This commit is contained in:
alex-eg
2025-10-22 18:20:12 +03:00
committed by Pavel Kulyov
parent 55a0235a37
commit 1b721b34a0
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
fmt-c.scm
View File

@@ -607,9 +607,11 @@
(define (c-while check . body)
(c-reset-newline
(cat (c-block (cat "while (" (c-in-test (c-expr check)) ")")
(c-in-stmt (apply c-begin body)))
fl)))
(if (null? body)
(cat "while (" (c-in-test (c-expr check)) ");")
(cat (c-block (cat "while (" (c-in-test (c-expr check)) ")")
(c-in-stmt (apply c-begin body)))
fl))))
(define (c-for init check update . body)
(c-reset-newline