From ae25cb167bd95db35f73eade278f5f1e8a12c48b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 1 Nov 2023 00:45:03 +0100 Subject: Forward extra kw args to number->string-{ordinal,cardinal}. --- module/text/numbers/sv.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/text/numbers/sv.scm') diff --git a/module/text/numbers/sv.scm b/module/text/numbers/sv.scm index 1760f622..51a9c4c6 100644 --- a/module/text/numbers/sv.scm +++ b/module/text/numbers/sv.scm @@ -20,7 +20,7 @@ [(<= 60 e 65) "dec"] )) -(define (number->string-cardinal n) +(define (number->string-cardinal n . _) (cond [(< n 0) (string-append "minus " (number->string-cardinal (- n)))] [(= n 0) "noll"] [(= n 1) "ett"] @@ -93,7 +93,7 @@ (number->string n))])) (define* (number->string-ordinal - n key: a-form?) + n key: a-form? allow-other-keys:) (define a-string (if a-form? "a" "e")) (cond [(>= -3 n) (format #f "~a sista" (number->string-ordinal (- n)))] [(= -2 n) "näst sista"] -- cgit v1.2.3