alex-eg/sex
1
0
Fork 1
Code Issues 3 Pull Requests 1 Actions Packages Projects 1 Releases Wiki Activity

Better types #15

Merged
alex-eg merged 27 commits from better-types into main 2025-10-30 16:05:44 +01:00
Conversation 16 Commits 27 Files Changed 18 +5
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit b379aae8b6 - Show all commits

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)