From 49c9839eae84f7f3cd10db45f389fa1ea1050659 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 22 Mar 2009 16:20:53 +0100 Subject: [PATCH] Remove unneeded SMOB mark procedure in `i18n.c'. * libguile/i18n.c (smob_locale_mark): Remove. (scm_init_i18n): Remove `scm_set_smob_mark ()' call. --- libguile/i18n.c | 26 +------------------------- 1 file changed, 1 insertion(+), 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);