brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Make sure the tags are upcase.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-13 22:00:58 +02:00
parent 1f41a7ea64
commit f6761b1993
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/util-tag.scm
View file

@ -47,7 +47,11 @@
(string->symbol (string->symbol
(string-intersperse (string-intersperse
(cons (cons
(symbol->string sym) (list->string
(map
char-upcase
(string->list
(symbol->string sym))))
(cons (cons
"-" "-"
(map (lambda (n) (map (lambda (n)