diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-01-11 00:51:19 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-01-11 00:51:19 +0000 |
commit | 16c5cac25aa125128e123cae34865613e95e2938 (patch) | |
tree | 0b382ee515014f12183581dc6d3a2a570b4d83b6 /libguile/fluids.c | |
parent | 327967ef26cbebc2611c4d49bbbb100378d3b1ff (diff) | |
download | guile-16c5cac25aa125128e123cae34865613e95e2938.tar.gz |
(scm_frame_unwind, scm_frame_unwind_handler): Renamed and changed all
uses. (scm_frame_rewind, scm_frame_rewind_handler): Likewise.
Diffstat (limited to 'libguile/fluids.c')
-rw-r--r-- | libguile/fluids.c | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/libguile/fluids.c b/libguile/fluids.c index 3f5591759..6cae477cc 100644 --- a/libguile/fluids.c +++ b/libguile/fluids.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1996,1997,2000,2001 Free Software Foundation, Inc. +/* Copyright (C) 1996,1997,2000,2001, 2004 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,8 +229,10 @@ scm_c_with_fluids (SCM fluids, SCM values, SCM (*cproc) (), void *cdata) data = scm_cons (fluids, values); scm_frame_begin (SCM_F_FRAME_REWINDABLE); - scm_frame_rewind_with_scm (swap_fluids, data, SCM_F_WIND_EXPLICITLY); - scm_frame_unwind_with_scm (swap_fluids_reverse, data, SCM_F_WIND_EXPLICITLY); + scm_frame_rewind_handler_with_scm (swap_fluids, data, + SCM_F_WIND_EXPLICITLY); + scm_frame_unwind_handler_with_scm (swap_fluids_reverse, data, + SCM_F_WIND_EXPLICITLY); ans = cproc (cdata); scm_frame_end (); return ans; @@ -275,8 +277,8 @@ void scm_frame_fluid (SCM fluid, SCM value) { SCM data = scm_cons (fluid, value); - scm_frame_rewind_with_scm (swap_fluid, data, SCM_F_WIND_EXPLICITLY); - scm_frame_unwind_with_scm (swap_fluid, data, SCM_F_WIND_EXPLICITLY); + scm_frame_rewind_handler_with_scm (swap_fluid, data, SCM_F_WIND_EXPLICITLY); + scm_frame_unwind_handler_with_scm (swap_fluid, data, SCM_F_WIND_EXPLICITLY); } void |