From f4f877357a3217607289a198741d7e0856005902 Mon Sep 17 00:00:00 2001
From: pho4cexa <pho4cexa@orbital.rodeo>
Date: Tue, 13 Dec 2022 17:42:21 -0800
Subject: [PATCH] bugfix: only do string transforms on strings not chars

thanks for the report m455!!
---
 main.scm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/main.scm b/main.scm
index a0d9bd6..d441318 100755
--- a/main.scm
+++ b/main.scm
@@ -151,11 +151,13 @@
    (pre-post-order*
     `((*text* .
        ,(lambda (_ str)
-          (->
-           str
-           (string-downcase)
-           (string-translate "/,:;\"[]{}()=+")
-           (string-translate " _." "---"))))
+          (if (string? str)
+              (->
+               str
+               (string-downcase)
+               (string-translate "/,:;\"[]{}()=+")
+               (string-translate " _." "---"))
+              str)))
       ,@alist-conv-rules*))
    (flatten)
    ((flip map) ->string)