mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

i18n: Simplify `RUN_IN_LOCALE_SECTION' (GNU version).

Browse source 
* libguile/i18n.c (RUN_IN_LOCALE_SECTION)[USE_GNU_LOCALE_API]: Remove
  extraneous uselocale(3) call.
This commit is contained in:
Ludovic Courtès 2009-09-18 12:15:26 +02:00
parent d7a2207326
commit 12f0c3e547
1 changed files with 9 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

22
libguile/i18n.c
View file

@ -509,19 +509,15 @@ get_current_locale (SCM *result)
#else /* USE_GNU_LOCALE_API */ #else /* USE_GNU_LOCALE_API */
/* Convenient macro to run STATEMENT in the locale context of C_LOCALE. */ /* Convenient macro to run STATEMENT in the locale context of C_LOCALE. */
#define RUN_IN_LOCALE_SECTION(_c_locale, _statement) \ #define RUN_IN_LOCALE_SECTION(_c_locale, _statement) \
do \ do \
{ \ { \
scm_t_locale old_loc = uselocale (NULL); \ scm_t_locale old_loc; \
if (old_loc != _c_locale) \ \
{ \ old_loc = uselocale (_c_locale); \
uselocale (_c_locale); \ _statement ; \
_statement ; \ uselocale (old_loc); \
uselocale (old_loc); \ } \
} \
else \
_statement; \
} \
while (0) while (0)