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

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

Browse Source
This commit is contained in:
alex-eg
2025-10-22 22:28:37 +03:00
committed by Pavel Kulyov
parent 3af850b111
commit 2f75e80bc9
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
fmt-c-writer.scm
View File

@@ -75,6 +75,11 @@
(('cast expr type) (list '%cast (('cast expr type) (list '%cast
(walk-type type) (walk-type type)
(walk-expr expr))) (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)))) (else (map walk-expr form))))
(define (walk-var form) (define (walk-var form)