summaryrefslogtreecommitdiff
path: root/libguile/dynwind.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-05-13 12:16:56 +0200
committerAndy Wingo <wingo@pobox.com>2011-05-13 13:49:30 +0200
commitb2feee6bc0d440a20c2c8cbb7b3d03c957c2c417 (patch)
tree946f117f76fe54be3f8cbc7005d2ae2defb749b6 /libguile/dynwind.c
parentb5df9cda41231785feb548da46d97a1af2c79251 (diff)
downloadguile-b2feee6bc0d440a20c2c8cbb7b3d03c957c2c417.tar.gz
deprecate scm_internal_dynamic_wind
* libguile/dynwind.c: * libguile/dynwind.h: * libguile/deprecated.h (scm_t_inner): * libguile/deprecated.c (scm_internal_dynamic_wind): Deprecate, as the scm_dynwind API is better, and this API encourages users to stuff SCM values into pointers.
Diffstat (limited to 'libguile/dynwind.c')
-rw-r--r--libguile/dynwind.c19
1 files changed, 1 insertions, 18 deletions
diff --git a/libguile/dynwind.c b/libguile/dynwind.c
index f4d19bd0a..14dd861dc 100644
--- a/libguile/dynwind.c
+++ b/libguile/dynwind.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2003, 2004, 2006, 2008, 2010 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2003, 2004, 2006, 2008, 2010, 2011 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
@@ -68,23 +68,6 @@ scm_dynamic_wind (SCM in_guard, SCM thunk, SCM out_guard)
}
#undef FUNC_NAME
-SCM
-scm_internal_dynamic_wind (scm_t_guard before,
- scm_t_inner inner,
- scm_t_guard after,
- void *inner_data,
- void *guard_data)
-{
- SCM ans;
-
- scm_dynwind_begin (SCM_F_DYNWIND_REWINDABLE);
- scm_dynwind_rewind_handler (before, guard_data, SCM_F_WIND_EXPLICITLY);
- scm_dynwind_unwind_handler (after, guard_data, SCM_F_WIND_EXPLICITLY);
- ans = inner (inner_data);
- scm_dynwind_end ();
- return ans;
-}
-
/* Frames and winders. */
static scm_t_bits tc16_frame;