aniani/elinks
1
0
Fork 0
mirror of https://github.com/rkd77/elinks.git synced 2025-02-02 15:09:23 -05:00
Code

#define filenames.

Browse Source
This commit is contained in:
Laurent MONIN 2006-01-15 09:56:19 +01:00 committed by Laurent MONIN
parent 53dea9c89e
commit c1305b3e5b
1 changed files with 4 additions and 2 deletions

6
src/scripting/guile/core.c

@ -16,6 +16,8 @@
#include "util/file.h"
#include "util/string.h"
#define GUILE_HOOKS_FILENAME "hooks.scm"
#define GUILE_USERHOOKS_FILENAME "user-hooks.scm"
/*
* Bindings
@ -52,7 +54,7 @@ init_guile(struct module *module)
/* Remember the current module. */
user_module = scm_current_module();
path = straconcat(elinks_home, "hooks.scm", NULL);
path = straconcat(elinks_home, GUILE_HOOKS_FILENAME, NULL);
if (!path) return;
if (file_can_read(path)) {
@ -74,7 +76,7 @@ init_guile(struct module *module)
mem_free(path);
path = straconcat(elinks_home, "user-hooks.scm", NULL);
path = straconcat(elinks_home, GUILE_USERHOOKS_FILENAME, NULL);
if (!path) return;
if (file_can_read(path))
scm_c_primitive_load_path(path);