mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

i18n: add international sign positions to %locale-dump

Browse source 
* module/ice-9/i18n.scm (%locale-dump): modified
This commit is contained in:
Mike Gran 2017-03-20 22:35:49 -07:00
parent dc9d1474aa
commit 5d2aa5f1ad
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/ice-9/i18n.scm
View file

@ -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))