diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-31 00:13:15 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
| commit | 83a3dc68d09c00614304d0f3e70dc4a47b2021f3 (patch) | |
| tree | e0092e3380f519d4c0faf155fcffe318dfd14dbd | |
| parent | Add TODO's for module-uses. (diff) | |
| download | calp-83a3dc68d09c00614304d0f3e70dc4a47b2021f3.tar.gz calp-83a3dc68d09c00614304d0f3e70dc4a47b2021f3.tar.xz | |
Remove re-implementation of resolve-language.
| -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)) |