Convert remaining old style `catch' to `with-throw-handler'

[clinton/bobotpp.git] / source / BotInterp.C

diff --git a/source/BotInterp.C b/source/BotInterp.C
index b106dfa..32801f1 100644 (file)
--- a/source/BotInterp.C
+++ b/source/BotInterp.C
@@ -180,11 +180,13 @@ BotInterp::RunHooks(int hooktype, std::string match, SCM args)
        {
          bool fallthru_p = (*it)->fallthru;
          wd.func = (*it)->function;
-         result = scm_internal_catch(SCM_BOOL_T, 
-                                     (scm_t_catch_body) 
-                                     Interp::LazyApplyWrapper,
-                                     static_cast<void *> (&wd), 
-                                     (scm_t_catch_handler) Interp::EmptyHandler, 0);
+         result = scm_c_with_throw_handler (SCM_BOOL_T,
+                                            (scm_t_catch_body)
+                                            Interp::LazyApplyWrapper,
+                                            static_cast<void *> (&wd),
+                                            (scm_t_catch_handler) Interp::EmptyHandler,
+                                            0,
+                                            0);
          if (!fallthru_p)
            break;
        }
@@ -251,11 +253,12 @@ BotInterp::RunTimers(int now)
        {
          wd.func = current_timer.function;
 
-         scm_internal_catch (SCM_BOOL_T,
-                             (scm_t_catch_body) Interp::LazyApplyWrapper,
-                             (void *)&wd,
-                             (scm_t_catch_handler) Interp::EmptyHandler, 
-                             0);
+         scm_c_with_throw_handler (SCM_BOOL_T,
+                                   (scm_t_catch_body) Interp::LazyApplyWrapper,
+                                   (void *)&wd,
+                                   (scm_t_catch_handler) Interp::EmptyHandler,
+                                   0,
+                                   0);
 
          // The timer list may have been modified by the timer
          // callback; if it has in such a way that the first queue