diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-01 00:45:03 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
commit | ae25cb167bd95db35f73eade278f5f1e8a12c48b (patch) | |
tree | dba8c45d5409f9312d566eae75bac1656cfb143d /module/text/numbers.scm | |
parent | Add tests for (text markup). (diff) | |
download | calp-ae25cb167bd95db35f73eade278f5f1e8a12c48b.tar.gz calp-ae25cb167bd95db35f73eade278f5f1e8a12c48b.tar.xz |
Forward extra kw args to number->string-{ordinal,cardinal}.
Diffstat (limited to 'module/text/numbers.scm')
-rw-r--r-- | module/text/numbers.scm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/module/text/numbers.scm b/module/text/numbers.scm index 78382767..debd7f17 100644 --- a/module/text/numbers.scm +++ b/module/text/numbers.scm @@ -1,4 +1,5 @@ (define-module (text numbers) + :use-module (srfi srfi-71) :use-module (srfi srfi-88) :use-module ((hnh util language) :select (resolve-language)) :export (number->string-cardinal @@ -16,12 +17,15 @@ proc-symb)) (define* (number->string-cardinal - n optional: (language (resolve-language))) - ((get language 'number->string-cardinal) n)) + n optional: (language (resolve-language)) + rest: extra-kvs) + (apply (get language 'number->string-cardinal) n extra-kvs)) (define* (number->string-ordinal - n optional: (language (resolve-language))) - ((get language 'number->string-ordinal) n)) + n + optional: (language (resolve-language)) + rest: extra-kvs) + (apply (get language 'number->string-ordinal) n extra-kvs)) ;; TODO change API to allow language, and stop having random extra ;; arguments for implementations. |