aboutsummaryrefslogtreecommitdiff
path: root/module/util
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--module/util.scm12
-rw-r--r--module/util/color.scm (renamed from module/output/color.scm)2
2 files changed, 8 insertions, 6 deletions
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))
diff --git a/module/output/color.scm b/module/util/color.scm
index 123d0ba2..7b6dacec 100644
--- a/module/output/color.scm
+++ b/module/util/color.scm
@@ -1,4 +1,4 @@
-(define-module (output color)
+(define-module (util color)
)
;; Returns a color with good contrast to the given background color.