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

Remove unneeded SMOB mark procedure in `i18n.c'.

Browse source 
* libguile/i18n.c (smob_locale_mark): Remove.
  (scm_init_i18n): Remove `scm_set_smob_mark ()' call.
This commit is contained in:
Ludovic Courtès 2009-03-22 16:20:53 +01:00
parent 85d7012ec3
commit 49c9839eae
1 changed files with 1 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

26
libguile/i18n.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 2006, 2007, 2008 Free Software Foundation, Inc.
/* Copyright (C) 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@ -229,26 +229,6 @@ SCM_SMOB_FREE (scm_tc16_locale_smob_type, smob_locale_free, locale)
return 0;
}
#ifndef USE_GNU_LOCALE_API
static SCM
smob_locale_mark (SCM locale)
{
register SCM dependency;
if (!scm_is_eq (locale, SCM_VARIABLE_REF (scm_global_locale)))
{
scm_t_locale c_locale;
c_locale = (scm_t_locale) SCM_SMOB_DATA (locale);
dependency = (c_locale->base_locale);
}
else
dependency = SCM_BOOL_F;
return dependency;
}
#endif
static void inline scm_locale_error (const char *, int) SCM_NORETURN;
@ -1721,10 +1701,6 @@ scm_init_i18n ()
#include "libguile/i18n.x"
#ifndef USE_GNU_LOCALE_API
scm_set_smob_mark (scm_tc16_locale_smob_type, smob_locale_mark);
#endif
/* Initialize the global locale object with a special `locale' SMOB. */
SCM_NEWSMOB (global_locale_smob, scm_tc16_locale_smob_type, NULL);
SCM_VARIABLE_SET (scm_global_locale, global_locale_smob);