Move text numbers into sv-submodule, create en-module.

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)]))