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

Add a fallback value for the locale-monetary-decimal-point

Browse source 
* module/ice-9/i18n.scm (locale-monetary-decimal-point): use "." as fallback
This commit is contained in:
Michael Gran 2019-02-23 16:19:05 -08:00
parent 2dccec9f55
commit 9ba449643d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +1,7 @@
;;;; i18n.scm --- internationalization support -*- coding: utf-8 -*- ;;;; i18n.scm --- internationalization support -*- coding: utf-8 -*-
;;;; Copyright (C) 2006, 2007, 2009, 2010, 2012, ;;;; Copyright (C) 2006, 2007, 2009, 2010, 2012,
;;;; 2017 Free Software Foundation, Inc. ;;;; 2017, 2019 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -212,7 +212,7 @@
(define-simple-langinfo-mapping locale-monetary-negative-sign (define-simple-langinfo-mapping locale-monetary-negative-sign
NEGATIVE_SIGN "-") NEGATIVE_SIGN "-")
(define-simple-langinfo-mapping locale-monetary-decimal-point (define-simple-langinfo-mapping locale-monetary-decimal-point
MON_DECIMAL_POINT "") MON_DECIMAL_POINT ".")
(define-simple-langinfo-mapping locale-monetary-thousands-separator (define-simple-langinfo-mapping locale-monetary-thousands-separator
MON_THOUSANDS_SEP "") MON_THOUSANDS_SEP "")
(define-simple-langinfo-mapping locale-monetary-grouping (define-simple-langinfo-mapping locale-monetary-grouping