Fix build with guile 1.8.

Reported by:	pointyhat via erwin
This commit is contained in:
Joe Marcus Clarke 2008-03-01 23:35:46 +00:00
parent fbc0b2d36e
commit 6bd3359e19
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=208297

View file

@ -0,0 +1,13 @@
--- 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