summaryrefslogtreecommitdiff
path: root/test-suite/standalone/test-unwind.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-01-11 00:56:05 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-01-11 00:56:05 +0000
commitf1da8e4e0ba3a7226f515cb30349625049b4b120 (patch)
treec1cfd68785822b73a8530238bdbb4e5bcd6a4ca8 /test-suite/standalone/test-unwind.c
parent16c5cac25aa125128e123cae34865613e95e2938 (diff)
downloadguile-f1da8e4e0ba3a7226f515cb30349625049b4b120.tar.gz
Renamed scm_frame_unwind to scm_frame_unwind_handler, and
scm_frame_rewind to scm_frame_rewind_handler.
Diffstat (limited to 'test-suite/standalone/test-unwind.c')
-rw-r--r--test-suite/standalone/test-unwind.c16
1 files changed, 9 insertions, 7 deletions
diff --git a/test-suite/standalone/test-unwind.c b/test-suite/standalone/test-unwind.c
index 4e107a92f..44fbe4715 100644
--- a/test-suite/standalone/test-unwind.c
+++ b/test-suite/standalone/test-unwind.c
@@ -35,7 +35,7 @@ func1 ()
{
scm_frame_begin (0);
flag1 = 0;
- scm_frame_unwind (set_flag, &flag1, 0);
+ scm_frame_unwind_handler (set_flag, &flag1, 0);
scm_frame_end ();
}
@@ -47,7 +47,7 @@ func2 ()
{
scm_frame_begin (0);
flag1 = 0;
- scm_frame_unwind (set_flag, &flag1, SCM_F_WIND_EXPLICITLY);
+ scm_frame_unwind_handler (set_flag, &flag1, SCM_F_WIND_EXPLICITLY);
scm_frame_end ();
}
@@ -59,7 +59,7 @@ func3 ()
{
scm_frame_begin (0);
flag1 = 0;
- scm_frame_unwind (set_flag, &flag1, 0);
+ scm_frame_unwind_handler (set_flag, &flag1, 0);
scm_misc_error ("func3", "gratuitous error", SCM_EOL);
scm_frame_end ();
}
@@ -72,7 +72,7 @@ func4 ()
{
scm_frame_begin (0);
flag1 = 0;
- scm_frame_unwind (set_flag, &flag1, SCM_F_WIND_EXPLICITLY);
+ scm_frame_unwind_handler (set_flag, &flag1, SCM_F_WIND_EXPLICITLY);
scm_misc_error ("func4", "gratuitous error", SCM_EOL);
scm_frame_end ();
}
@@ -179,7 +179,8 @@ check_ports ()
{
SCM port = scm_open_file (scm_str2string (filename),
scm_str2string ("w"));
- scm_frame_unwind_with_scm (close_port, port, SCM_F_WIND_EXPLICITLY);
+ scm_frame_unwind_handler_with_scm (close_port, port,
+ SCM_F_WIND_EXPLICITLY);
scm_frame_current_output_port (port);
scm_write (scm_version (), SCM_UNDEFINED);
@@ -191,8 +192,9 @@ check_ports ()
SCM port = scm_open_file (scm_str2string (filename),
scm_str2string ("r"));
SCM res;
- scm_frame_unwind_with_scm (close_port, port, SCM_F_WIND_EXPLICITLY);
- scm_frame_unwind (delete_file, filename, SCM_F_WIND_EXPLICITLY);
+ scm_frame_unwind_handler_with_scm (close_port, port,
+ SCM_F_WIND_EXPLICITLY);
+ scm_frame_unwind_handler (delete_file, filename, SCM_F_WIND_EXPLICITLY);
scm_frame_current_input_port (port);
res = scm_read (SCM_UNDEFINED);