diff options
Diffstat (limited to 'src/guile.c')
-rw-r--r-- | src/guile.c | 25 |
1 files changed, 11 insertions, 14 deletions
diff --git a/src/guile.c b/src/guile.c index 7c898d5..7883117 100644 --- a/src/guile.c +++ b/src/guile.c @@ -4,3 +4,3 @@ This file is part of GNU Anubis. - Copyright (C) 2003-2014 The Anubis Team. + Copyright (C) 2003-2024 The Anubis Team. @@ -24,4 +24,2 @@ -#ifdef WITH_GUILE - static void guile_ports_open (void); @@ -85,4 +83,3 @@ init_guile () scm_load_goops (); - guile_init_anubis_info_port (); - guile_init_anubis_error_port (); + guile_init_anubis_log_port (); } @@ -112,3 +109,3 @@ guile_ports_open () { - port = scm_fdes_to_port (fd, "a", scm_makfrom0str (name)); + port = scm_fdes_to_port (fd, "a", scm_from_locale_string (name)); guile_ports_close (); @@ -159,3 +156,3 @@ guile_load_path_append_handler (void *data) *pscm = scm_append (scm_list_3 (path_scm, - scm_list_1 (scm_makfrom0str (path)), + scm_list_1 (scm_from_locale_string (path)), SCM_EOL)); @@ -269,3 +266,3 @@ list_to_args (ANUBIS_LIST arglist) case ':': - val = scm_c_make_keyword (p + 2); + val = scm_from_locale_keyword (p + 2); break; @@ -493,6 +490,8 @@ guile_parser (EVAL_ENV env, int key, ANUBIS_LIST arglist, void *inv_data) if (setjmp (jmp_env) == 0) - scm_internal_lazy_catch (SCM_BOOL_T, - inner_catch_body, - &closure, - eval_catch_handler, &jmp_env); + { + scm_c_catch (SCM_BOOL_T, + inner_catch_body, &closure, + eval_catch_handler, &jmp_env, + NULL, NULL); + } } @@ -524,4 +523,2 @@ guile_section_init (void) -#endif /* WITH_GUILE */ - /* EOF */ |