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:
parent
913742d12b
commit
6d95271e9f
@ -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);
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user