[project @ 2005-06-28 10:08:45 by unknown_lamer]

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

diff --git a/source/Parser.C b/source/Parser.C
index b8eafa3..813813b 100644 (file)
--- a/source/Parser.C
+++ b/source/Parser.C
@@ -1051,7 +1051,8 @@ Parser::parseScriptFunction (ServerConnection * cnx,
   struct wrapper_data wd;
   wd.func = scmFunc;
   wd.args = args_list;
-  gh_catch (SCM_BOOL_T, (scm_t_catch_body) scm_apply_wrapper,
-           (void *) &wd, (scm_t_catch_handler) Interp::ErrorHandler, 0);
+  scm_internal_catch (SCM_BOOL_T,
+                     (scm_t_catch_body) lazy_apply_wrapper, (void *) &wd,
+                     (scm_t_catch_handler) empty_handler, 0);
 }
 #endif