bugfix: only do string transforms on strings not chars
thanks for the report m455!!
This commit is contained in:
parent
179f3c3e2d
commit
f4f877357a
1 changed files with 7 additions and 5 deletions
12
main.scm
12
main.scm
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue