summaryrefslogtreecommitdiff
path: root/libguile/extensions.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/extensions.c')
-rw-r--r--libguile/extensions.c10
1 files changed, 4 insertions, 6 deletions
diff --git a/libguile/extensions.c b/libguile/extensions.c
index c285b1109..a094159d4 100644
--- a/libguile/extensions.c
+++ b/libguile/extensions.c
@@ -1,6 +1,4 @@
-/* extensions.c - registering and loading extensions.
-
- Copyright 2001,2006,2009-2011,2018
+/* Copyright 2001,2002,2004,2006,2009-2011,2018-2019
Free Software Foundation, Inc.
This file is part of Guile.
@@ -93,9 +91,9 @@ load_extension (SCM lib, SCM init)
scm_dynwind_begin (0);
- clib = scm_to_locale_string (lib);
+ clib = scm_to_utf8_string (lib);
scm_dynwind_free (clib);
- cinit = scm_to_locale_string (init);
+ cinit = scm_to_utf8_string (init);
scm_dynwind_free (cinit);
for (ext = head; ext; ext = ext->next)
@@ -126,7 +124,7 @@ load_extension (SCM lib, SCM init)
void
scm_c_load_extension (const char *lib, const char *init)
{
- load_extension (scm_from_locale_string (lib), scm_from_locale_string (init));
+ load_extension (scm_from_utf8_string (lib), scm_from_utf8_string (init));
}
SCM_DEFINE (scm_load_extension, "load-extension", 2, 0, 0,