From f12fca91b185cbf83fbe173fadf6a46f6c3c0c65 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:39:53 +0200
Subject: Fixes.

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

(limited to 'module/util.scm')

diff --git a/module/util.scm b/module/util.scm
index e2acd551..28864896 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -309,11 +309,6 @@
 (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)
@@ -505,6 +500,13 @@
      (and=>> (and=> value proc)
              rest ...)]))
 
+(define-public (downcase-symbol symb)
+  (-> symb
+      symbol->string
+      string-downcase
+      string->symbol))
+
+
 ;; @example
 ;; (group (iota 10) 2)
 ;; ⇒ ((0 1) (2 3) (4 5) (6 7) (8 9))
-- 
cgit v1.2.3