From 408c0c14418606d50538078fdeb3f1581f5dd11d Mon Sep 17 00:00:00 2001
From: alex-eg <alexey.e.egorov@gmail.com>
Date: Mon, 9 Jun 2025 00:29:31 +0300
Subject: [PATCH] make some exceptions for unkebabification

---
 sexc.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/sexc.scm b/sexc.scm
index 7e28894..89e6815 100644
--- 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