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

fix scm_gc_strdup invocation

Browse source 
* libguile/i18n.c (get_current_locale): Fix scm_gc_strdup invocation.
This commit is contained in:
Andy Wingo 2011-08-29 22:20:39 +02:00
parent 406524ea98
commit 0b4f77192d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/i18n.c
View file

@ -508,7 +508,7 @@ get_current_locale (SCM *result)
current_locale = setlocale (LC_ALL, NULL); current_locale = setlocale (LC_ALL, NULL);
if (current_locale != NULL) if (current_locale != NULL)
c_locale->locale_name = scm_gc_strdup (current_locale); c_locale->locale_name = scm_gc_strdup (current_locale, "locale");
else else
err = EINVAL; err = EINVAL;