From c1cbef6611df9c8918fee8699b5867d8a54ac810 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 17 Aug 2020 18:13:58 +0200
Subject: even more.

---
 module/util.scm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'module/util.scm')

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))
-- 
cgit v1.2.3