1 files changed, 7 insertions, 0 deletions
diff --git a/module/util.scm b/module/util.scm
index 17400c3b..e2acd551 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -309,6 +309,13 @@
 (define-public (as-symb s)
   (if (string? s) (string->symbol s) s))
 
+(define-public (downcase-symbol symb)
+  (-> symb
+      symbol->string
+      string-downcase
+      string->symbol))
+
+
 (define-public (enumerate lst)
   (zip (iota (length lst))
        lst))