1
0
mirror of https://github.com/rkd77/elinks.git synced 2025-01-03 14:57:44 -05:00

[guile] some casts

This commit is contained in:
Witold Filipczyk 2022-02-26 17:48:17 +01:00
parent 913742d12b
commit 6d95271e9f

View File

@ -36,15 +36,15 @@ error_handler(void *data, SCM tag, SCM throw_args)
static SCM
get_guile_hook_do(void *data)
{
char *hook = data;
char *hook = (char *)data;
return scm_c_module_lookup(internal_module(), hook);
}
static SCM
get_guile_hook(char *hook)
get_guile_hook(const char *hook)
{
return scm_internal_catch(SCM_BOOL_T, get_guile_hook_do, hook,
return scm_internal_catch(SCM_BOOL_T, get_guile_hook_do, (void *)hook,
error_handler, NULL);
}