diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-28 01:21:59 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-28 01:21:59 +0200 |
commit | 1c1a706b2d944f84393daeefc5ecf7675c5e085a (patch) | |
tree | b055404c80b049888e64c0272d5c316b528ea04a /module/text/numbers/en.scm | |
parent | Some clarifications in text submodules. (diff) | |
download | calp-1c1a706b2d944f84393daeefc5ecf7675c5e085a.tar.gz calp-1c1a706b2d944f84393daeefc5ecf7675c5e085a.tar.xz |
Move text numbers into sv-submodule, create en-module.
Diffstat (limited to '')
-rw-r--r-- | module/text/numbers/en.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/module/text/numbers/en.scm b/module/text/numbers/en.scm new file mode 100644 index 00000000..4f33f87e --- /dev/null +++ b/module/text/numbers/en.scm @@ -0,0 +1,15 @@ +(define-module (text numbers en) + :use-module (ice-9 format)) + +(define-public (number->string-cardinal n) + (format #f "~r" n)) + +(define-public (number->string-ordinal n) + (format #f "~:r" n)) + +;; Allows extra args to handle eventual local changes. +(define-public (each-string count . _) + (cond count + [(1) "each"] + [(2) "every other"] + [else (format #f "every ~:r" n)])) |