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/en.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/en.scm')
| -rw-r--r-- | module/text/numbers/en.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/text/numbers/en.scm b/module/text/numbers/en.scm index 6a5a636d..82e29c87 100644 --- a/module/text/numbers/en.scm +++ b/module/text/numbers/en.scm @@ -1,13 +1,14 @@ (define-module (text numbers en) :use-module (ice-9 format) + :use-module (srfi srfi-71) :export (number->string-cardinal number->string-ordinal each-string)) -(define (number->string-cardinal n) +(define (number->string-cardinal n . _) (format #f "~r" n)) -(define (number->string-ordinal n) +(define (number->string-ordinal n . _) (format #f "~:r" n)) ;; Allows extra args to handle eventual local changes. |