summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-03-22 16:20:53 +0100
committerLudovic Courtès <ludo@gnu.org>2009-03-22 16:20:53 +0100
commit49c9839eae84f7f3cd10db45f389fa1ea1050659 (patch)
tree33259c40160da6521c51da7a6d5fae4d832ffa2e
parent85d7012ec3456bc74de7c0dacbcfb9e4ecaf6698 (diff)
downloadguile-49c9839eae84f7f3cd10db45f389fa1ea1050659.tar.gz
Remove unneeded SMOB mark procedure in `i18n.c'.
* libguile/i18n.c (smob_locale_mark): Remove. (scm_init_i18n): Remove `scm_set_smob_mark ()' call.
-rw-r--r--libguile/i18n.c26
1 files changed, 1 insertions, 25 deletions
diff --git a/libguile/i18n.c b/libguile/i18n.c
index 8cacf5f8d..a5e451ceb 100644
--- a/libguile/i18n.c
+++ b/libguile/i18n.c
@@ -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);