diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-11 20:45:45 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-09-11 20:45:45 +0200 |
commit | e9d6798e9cf79d54f64171eda6fa9102fffe1f30 (patch) | |
tree | 19945d7681d075a6ee070eeb70f141d7f9262f8d /module/text/numbers.scm | |
parent | Introduce stream-split-by. (diff) | |
download | calp-e9d6798e9cf79d54f64171eda6fa9102fffe1f30.tar.gz calp-e9d6798e9cf79d54f64171eda6fa9102fffe1f30.tar.xz |
Document text modules.
Diffstat (limited to 'module/text/numbers.scm')
-rw-r--r-- | module/text/numbers.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/module/text/numbers.scm b/module/text/numbers.scm index c45016bc..7909573b 100644 --- a/module/text/numbers.scm +++ b/module/text/numbers.scm @@ -2,10 +2,16 @@ :use-module (srfi srfi-88) :export (number->string-cardinal number->string-ordinal + resolve-language each-string)) (define (get mod-symb proc-symb) - (module-ref (resolve-interface `(text numbers ,mod-symb)) + (module-ref (catch 'misc-error + (lambda () (resolve-interface `(text numbers ,mod-symb))) + (lambda (err proc fmt args data) + ;; Possibly check if the err message starts with + ;; "no code for module" + (resolve-interface '(text numbers en)))) proc-symb)) ;; "sv_SE.UTF-8" |