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/en.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'module/text/numbers/en.scm') diff --git a/module/text/numbers/en.scm b/module/text/numbers/en.scm index 622decd5..6a5a636d 100644 --- a/module/text/numbers/en.scm +++ b/module/text/numbers/en.scm @@ -1,14 +1,17 @@ (define-module (text numbers en) - :use-module (ice-9 format)) + :use-module (ice-9 format) + :export (number->string-cardinal + number->string-ordinal + each-string)) -(define-public (number->string-cardinal n) +(define (number->string-cardinal n) (format #f "~r" n)) -(define-public (number->string-ordinal n) +(define (number->string-ordinal n) (format #f "~:r" n)) ;; Allows extra args to handle eventual local changes. -(define-public (each-string count . _) +(define (each-string count . _) (case count [(1) "each"] [(2) "every other"] -- cgit v1.2.3