mike121 pushed a commit to branch master
in repository guile.
commit 5d2aa5f1adacf4ee605a536d7bca06bd1d0d48fb
Author: Mike Gran <spk...@yahoo.com>
Date: Mon Mar 20 22:35:49 2017 -0700
i18n: add international sign positions to %locale-dump
* module/ice-9/i18n.scm (%locale-dump): modified
---
module/ice-9/i18n.scm | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/module/ice-9/i18n.scm b/module/ice-9/i18n.scm
index f77fa69..6b9ead5 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))
