make some exceptions for unkebabification

2025-06-09 00:29:31 +03:00
parent dead339e8c
commit fea7e58dd1
1 changed files with 8 additions and 2 deletions
--- a/sexc.scm
+++ b/sexc.scm
@@ -10,8 +10,14 @@
        tree)

 (define (unkebabify sym)
-  (string->symbol
-   (string-translate (symbol->string sym) #\- #\_)))
+  (case sym
+    ((-) sym)
+    ((--) sym)
+    ((->) sym)
+    ((-=) sym)
+    (else
+     (string->symbol
+      (string-translate (symbol->string sym) #\- #\_)))))

 (define (atom-to-fmt-c atom)
  (case atom