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

Remove deprecated guardian code.

Browse source 
* libguile/guardians.c (guardian_apply): Remove `#if ENABLE_DEPRECATED'
  section since it was never compiled in, not even in 1.8.
  (scm_init_guardians): Likewise.
This commit is contained in:
Ludovic Courtès 2009-11-17 00:24:32 +01:00
parent f29ded4b67
commit 6bd210e090
1 changed files with 1 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/guardians.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1998,1999,2000,2001, 2006, 2008 Free Software Foundation, Inc.
/* Copyright (C) 1998,1999,2000,2001, 2006, 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 License
@ -279,13 +279,6 @@ scm_i_get_one_zombie (SCM guardian)
static SCM
guardian_apply (SCM guardian, SCM obj, SCM throw_p)
{
#if ENABLE_DEPRECATED
if (!SCM_UNBNDP (throw_p))
scm_c_issue_deprecation_warning
("Using the 'throw?' argument of a guardian is deprecated "
"and ineffective.");
#endif
if (!SCM_UNBNDP (obj))
{
scm_i_guard (guardian, obj);
@ -362,11 +355,7 @@ scm_init_guardians ()
tc16_guardian = scm_make_smob_type ("guardian", 0);
scm_set_smob_print (tc16_guardian, guardian_print);
#if ENABLE_DEPRECATED
scm_set_smob_apply (tc16_guardian, guardian_apply, 0, 2, 0);
#else
scm_set_smob_apply (tc16_guardian, guardian_apply, 0, 1, 0);
#endif
#include "libguile/guardians.x"
}