alex-eg/sex
1
0
Fork 1
Code Issues 3 Pull Requests 1 Actions Packages Projects 1 Releases Wiki 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) (define (c-while check . body)
(c-reset-newline (c-reset-newline
(cat (c-block (cat "while (" (c-in-test (c-expr check)) ")") (if (null? body)
(c-in-stmt (apply c-begin body))) (cat "while (" (c-in-test (c-expr check)) ");")
fl))) (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) (define (c-for init check update . body)
(c-reset-newline (c-reset-newline