bugfix: only do string transforms on strings not chars

thanks for the report m455!!
This commit is contained in:
pho4cexa 2022-12-13 17:42:21 -08:00 committed by m455
parent 179f3c3e2d
commit f4f877357a

View file

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