From 1976980d4a272fb7fc3694c734bfc6825edfc721 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 23 Jun 2022 03:23:44 +0200 Subject: Centralize (almost) all exports to :export in define-module. --- module/text/numbers/sv.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'module/text/numbers/sv.scm') diff --git a/module/text/numbers/sv.scm b/module/text/numbers/sv.scm index b70412fb..1760f622 100644 --- a/module/text/numbers/sv.scm +++ b/module/text/numbers/sv.scm @@ -1,6 +1,9 @@ (define-module (text numbers sv) :use-module (srfi srfi-71) - :use-module (hnh util)) + :use-module (hnh util) + :export (number->string-cardinal + number->string-ordinal + each-string)) ;; only used in number->string-cardinal (define (large-prefix e) @@ -17,7 +20,7 @@ [(<= 60 e 65) "dec"] )) -(define-public (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"] @@ -89,7 +92,7 @@ (string-append "det stora talet " (number->string n))])) -(define*-public (number->string-ordinal +(define* (number->string-ordinal n key: a-form?) (define a-string (if a-form? "a" "e")) (cond [(>= -3 n) (format #f "~a sista" (number->string-ordinal (- n)))] @@ -146,7 +149,7 @@ ;; (each-string 2) ; => "varannan" ;; (each-string 3) ; => "var tredje" ;; (each-string 3 #t) ; => "vart tredje" -(define*-public (each-string count optional: neutrum) +(define* (each-string count optional: neutrum) (string-flatten (cons "var" -- cgit v1.2.3