diff options
-rw-r--r-- | module/text/numbers.scm | 10 |
1 files changed, 1 insertions, 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)) |