diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-01 03:14:05 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
| commit | e4b41df44abad660f3bbbcf28abcd5838068c14b (patch) | |
| tree | fe024c17f6cd8448e060cd14abad1824ae93b116 /module/text/numbers.scm | |
| parent | Cleanup in (text numbers sv) (diff) | |
| download | calp-e4b41df44abad660f3bbbcf28abcd5838068c14b.tar.gz calp-e4b41df44abad660f3bbbcf28abcd5838068c14b.tar.xz | |
Fix API for each-string.
Diffstat (limited to 'module/text/numbers.scm')
| -rw-r--r-- | module/text/numbers.scm | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/module/text/numbers.scm b/module/text/numbers.scm index debd7f17..ad859a16 100644 --- a/module/text/numbers.scm +++ b/module/text/numbers.scm @@ -27,16 +27,8 @@ 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. -(define* (each-string count . args) - (define language (resolve-language)) +(define* (each-string count + optional: (language (resolve-language)) + rest: extra-kvs) (apply (get language 'each-string) count args)) - -;; scheme@(guile-user)> (number->string-cardinal 123) -;; $10 = "hundratjugotre" -;; scheme@(guile-user)> (number->string-ordinal 123) -;; $11 = "hundratjugotredje" -;; scheme@(guile-user)> (each-string 10) -;; $12 = "var tionde" |