diff options
| author | Mike Gran <spk121@yahoo.com> | 2017-03-20 22:35:49 -0700 |
|---|---|---|
| committer | Mike Gran <spk121@yahoo.com> | 2017-03-20 22:35:49 -0700 |
| commit | 5d2aa5f1adacf4ee605a536d7bca06bd1d0d48fb (patch) | |
| tree | 4dca0b531c9971f048745d13d00fd1c53da83d3e /module | |
| parent | dc9d1474aa03e73a093f3c9447006549d6576c2f (diff) | |
i18n: add international sign positions to %locale-dump
* module/ice-9/i18n.scm (%locale-dump): modified
Diffstat (limited to 'module')
| -rw-r--r-- | module/ice-9/i18n.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/module/ice-9/i18n.scm b/module/ice-9/i18n.scm index f77fa6950..6b9ead532 100644 --- a/module/ice-9/i18n.scm +++ b/module/ice-9/i18n.scm @@ -517,8 +517,12 @@ not be used in production code." (locale-negative-separated-by-space? #f loc))) (cons 'monetary-positive-sign (locale-monetary-positive-sign loc)) (cons 'monetary-negative-sign (locale-monetary-negative-sign loc)) - (cons 'positive-sign-position (locale-positive-sign-position loc)) - (cons 'negative-sign-position (locale-negative-sign-position loc)) + (cons 'positive-sign-position + (list (locale-positive-sign-position #t loc) + (locale-negative-sign-position #f loc))) + (cons 'negative-sign-position + (list (locale-negative-sign-position #t loc) + (locale-negative-sign-position #f loc))) (cons 'digit-grouping (locale-digit-grouping loc)) (cons 'decimal-point (locale-decimal-point loc)) (cons 'thousands-separator (locale-thousands-separator loc)) |