From 97205ed8ef88bf82ef914b78705eff5438d58708 Mon Sep 17 00:00:00 2001
From: alex-eg <alexey.e.egorov@gmail.com>
Date: Sat, 14 Jun 2025 17:48:41 +0300
Subject: [PATCH] don't unkebabify -> in symbols (it's -> from C)

---
 example/test-list.sex | 1 +
 sexc.scm              | 4 +++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/example/test-list.sex b/example/test-list.sex
index c23f322..05fe51f 100644
--- a/example/test-list.sex
+++ b/example/test-list.sex
@@ -38,6 +38,7 @@
      (printf "Size of the list: %zu\n" (length-list-int l))
      ,(list-for-each '((printf "%d " v) l v))
      (printf "\n")
+     (printf "%zu\n" l->next)
      0)
 
 (pub fn segs-renderer* create-renderer ())
diff --git a/sexc.scm b/sexc.scm
index 7af9a40..3787dfb 100644
--- a/sexc.scm
+++ b/sexc.scm
@@ -9,6 +9,7 @@
         fmt
         fmt-c
         getopt-long
+        regex
         srfi-1                          ; list routines
         tree)
 
@@ -22,7 +23,8 @@
     ((-=) sym)
     (else
      (string->symbol
-      (string-translate (symbol->string sym) #\- #\_)))))
+      (string-substitute "-(?!>)" "_"
+                         (symbol->string sym) #t)))))
 
 (define (atom-to-fmt-c atom)
   (case atom