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

make some exceptions for unkebabification

Browse Source
This commit is contained in:
alex-eg
2025-06-09 00:29:31 +03:00
parent 1286fc14ec
commit 408c0c1441
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
sexc.scm
View File

@@ -10,8 +10,14 @@
tree) tree)
(define (unkebabify sym) (define (unkebabify sym)
(string->symbol (case sym
(string-translate (symbol->string sym) #\- #\_))) ((-) sym)
((--) sym)
((->) sym)
((-=) sym)
(else
(string->symbol
(string-translate (symbol->string sym) #\- #\_)))))
(define (atom-to-fmt-c atom) (define (atom-to-fmt-c atom)
(case atom (case atom