[Guile-commits] 01/01: i18n: add international sign positions to %locale-dump

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit 5d2aa5f1adacf4ee605a536d7bca06bd1d0d48fb
Author: Mike Gran <address@hidden>
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))