Make sure the tags are upcase.

2023-05-13 22:00:58 +02:00 · 2023-05-13 22:00:58 +02:00 · f6761b1993
commit f6761b1993
parent 1f41a7ea64
1 changed files with 5 additions and 1 deletions
--- a/src/util-tag.scm
+++ b/src/util-tag.scm
@ -47,7 +47,11 @@
   (string->symbol
    (string-intersperse
     (cons
-      (symbol->string sym)
+      (list->string
+       (map
+	char-upcase
+	(string->list
+	 (symbol->string sym))))
      (cons
       "-"
       (map (lambda (n)