From 83a3dc68d09c00614304d0f3e70dc4a47b2021f3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 31 Oct 2023 00:13:15 +0100
Subject: Remove re-implementation of resolve-language.

---
 module/text/numbers.scm | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

diff --git a/module/text/numbers.scm b/module/text/numbers.scm
index 7909573b..78382767 100644
--- a/module/text/numbers.scm
+++ b/module/text/numbers.scm
@@ -1,5 +1,6 @@
 (define-module (text numbers)
   :use-module (srfi srfi-88)
+  :use-module ((hnh util language) :select (resolve-language))
   :export (number->string-cardinal
            number->string-ordinal
            resolve-language
@@ -14,15 +15,6 @@
                   (resolve-interface '(text numbers en))))
               proc-symb))
 
-;; "sv_SE.UTF-8"
-(define (resolve-language)
-  (string->symbol
-   (string-take
-    (or (getenv "LC_MESSAGES")
-        (getenv "LC_ALL")
-        "en")
-    2)))
-
 (define* (number->string-cardinal
           n optional: (language (resolve-language)))
   ((get language 'number->string-cardinal) n))
-- 
cgit v1.2.3