From 1c1a706b2d944f84393daeefc5ecf7675c5e085a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 28 Aug 2020 01:21:59 +0200 Subject: Move text numbers into sv-submodule, create en-module. --- module/text/numbers/en.scm | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 module/text/numbers/en.scm (limited to 'module/text/numbers/en.scm') 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)])) -- cgit v1.2.3