diff options
| author | Mike Gran <spk121@yahoo.com> | 2017-03-20 07:29:47 -0700 |
|---|---|---|
| committer | Mike Gran <spk121@yahoo.com> | 2017-03-20 07:29:47 -0700 |
| commit | 7e218d35ac96b6a9056aa06f983b3e254b0b9653 (patch) | |
| tree | d68aa0a950263b9c2a36f898cc57a56da99a760e /module | |
| parent | aa86fcb7d92857ddbd9c0cde40f3d730d4606d62 (diff) | |
i18n: rename locale-monetary-digit-grouping to locale-monetary-grouping
* module/ice-9/i18n.scm (locale-monetary-digit-grouping): renamed to locale-monetary grouping
(monetary-amount->locale-string): use renamed procedure
* test-suite/tests/i18n.test (%french-locale): add LC_MONETARY
(%french-utf8-locale): add LC_MONETARY
("nl-langinfo et al."): tests for locale-monetary-grouping
Diffstat (limited to 'module')
| -rw-r--r-- | module/ice-9/i18n.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/ice-9/i18n.scm b/module/ice-9/i18n.scm index 969c0589b..162049c2d 100644 --- a/module/ice-9/i18n.scm +++ b/module/ice-9/i18n.scm @@ -212,7 +212,7 @@ MON_DECIMAL_POINT "") (define-simple-langinfo-mapping locale-monetary-thousands-separator MON_THOUSANDS_SEP "") -(define-simple-langinfo-mapping locale-monetary-digit-grouping +(define-simple-langinfo-mapping locale-monetary-grouping MON_GROUPING '()) (define-monetary-langinfo-mapping locale-currency-symbol-precedes-positive? @@ -387,7 +387,7 @@ locale is used." (dec (decimal-part (number-decimal-string (abs amount) fraction-digits))) - (grouping (locale-monetary-digit-grouping locale)) + (grouping (locale-monetary-grouping locale)) (separator (locale-monetary-thousands-separator locale))) (add-monetary-sign+currency amount |