add c-or/c-bit-or/c-bit-or= support

2025-10-22 22:28:37 +03:00
parent 7a21316c10
commit b379aae8b6
1 changed files with 5 additions and 0 deletions
--- a/fmt-c-writer.scm
+++ b/fmt-c-writer.scm
@@ -75,6 +75,11 @@
    (('cast expr type) (list '%cast
                             (walk-type type)
                             (walk-expr expr)))
+    ;; | is problematic... And c-or/bit-or/etc are actually
+    ;; procedures, so we have to call the procedure itself
+    (('c-or . rest) (apply c-or (map walk-expr rest)))
+    (('c-bit-or . rest) (apply c-bit-or (map walk-expr rest)))
+    (('c-bit-or= . rest) (apply c-bit-or= (map walk-expr rest)))
    (else (map walk-expr form))))

 (define (walk-var form)