fmt-c.scm

@@ -607,9 +607,11 @@
 
 (define (c-while check . body)
   (c-reset-newline
+   (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)))
+            fl))))
 
 (define (c-for init check update . body)
   (c-reset-newline