diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
| commit | 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch) | |
| tree | c48c312e1d44306039fc00cfe4b5cd611d7f9a3b /module/text/numbers.scm | |
| parent | Remove procedure tabset. (diff) | |
| download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz | |
Normalize keyword syntax.
Diffstat (limited to '')
| -rw-r--r-- | module/text/numbers.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/text/numbers.scm b/module/text/numbers.scm index 168d267e..c45016bc 100644 --- a/module/text/numbers.scm +++ b/module/text/numbers.scm @@ -1,4 +1,5 @@ (define-module (text numbers) + :use-module (srfi srfi-88) :export (number->string-cardinal number->string-ordinal each-string)) @@ -17,11 +18,11 @@ 2))) (define* (number->string-cardinal - n #:optional (language (resolve-language))) + n optional: (language (resolve-language))) ((get language 'number->string-cardinal) n)) (define* (number->string-ordinal - n #:optional (language (resolve-language))) + n optional: (language (resolve-language))) ((get language 'number->string-ordinal) n)) ;; TODO change API to allow language, and stop having random extra |