bugfix: only do string transforms on strings not chars

thanks for the report m455!!
2022-12-13 17:42:21 -08:00 · 2022-12-13 17:42:21 -08:00 · f4f877357a
commit f4f877357a
parent 179f3c3e2d
1 changed files with 7 additions and 5 deletions
--- 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)