diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-11-17 00:24:32 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-11-17 23:13:58 +0100 |
commit | 6bd210e090be6e6ce3fbe65075185676f87b1eac (patch) | |
tree | 01c9716d36e77e1233d35f36faa7fa42bb8aa947 | |
parent | f29ded4b67ca5d750863ba24d16456ed8f730d0a (diff) | |
download | guile-6bd210e090be6e6ce3fbe65075185676f87b1eac.tar.gz |
Remove deprecated guardian code.
* 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.
-rw-r--r-- | libguile/guardians.c | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/libguile/guardians.c b/libguile/guardians.c index 51aa43310..b85ec0284 100644 --- a/libguile/guardians.c +++ b/libguile/guardians.c @@ -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" } |