diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-01-11 00:56:05 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-01-11 00:56:05 +0000 |
commit | f1da8e4e0ba3a7226f515cb30349625049b4b120 (patch) | |
tree | c1cfd68785822b73a8530238bdbb4e5bcd6a4ca8 /test-suite/standalone/test-unwind.c | |
parent | 16c5cac25aa125128e123cae34865613e95e2938 (diff) | |
download | guile-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.c | 16 |
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); |