From 5be437f2023a017d1a43a1571b26dc9a2812eca0 Mon Sep 17 00:00:00 2001
From: alex-eg <alexey.e.egorov@gmail.com>
Date: Wed, 29 Apr 2026 21:49:32 +0300
Subject: [PATCH] fix paren placing in fmt

Prior to the fix, the Sex code
`(while (!= EOF (= c (getc f))) ...)` expanded wrongly to
`while (EOF != c = getc(f)) { ...`, instead of
`while (EOF != (c = getc(f))) { ...`
---
 sex-fmt-c.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sex-fmt-c.scm b/sex-fmt-c.scm
index 4713c92..6d69a09 100644
--- a/sex-fmt-c.scm
+++ b/sex-fmt-c.scm
@@ -112,7 +112,7 @@
     (lambda (st)
       ((fmt-let 'op op
                 (if (and (c-op<= (fmt-op st) op)
-                         (not (vector? st)))
+                         (not (vector? x)))
                     (c-paren x)
                     x))
        st)))