14 lines
515 B
C
14 lines
515 B
C
--- source/Parser.C.orig 2008-03-01 18:34:26.000000000 -0500
|
|
+++ source/Parser.C 2008-03-01 18:34:45.000000000 -0500
|
|
@@ -991,8 +991,8 @@ Parser::parseScriptFunction(ServerConnec
|
|
wd.func = scmFunc;
|
|
wd.args = args_list;
|
|
|
|
- gh_catch(SCM_BOOL_T, (scm_catch_body_t) scm_apply_wrapper,
|
|
- (void *)&wd, (scm_catch_handler_t) Interp::ErrorHandler,
|
|
+ gh_catch(SCM_BOOL_T, (scm_t_catch_body) scm_apply_wrapper,
|
|
+ (void *)&wd, (scm_t_catch_handler) Interp::ErrorHandler,
|
|
0);
|
|
}
|
|
#endif
|