summaryrefslogtreecommitdiff
path: root/libguile/script.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-08-25 13:47:52 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-08-25 13:47:52 +0000
commit7311b3e8381f756c09516cedf4151933d8e105ba (patch)
treefcd3db7ac1072afcef40f604d97f43bd9af4cf01 /libguile/script.c
parent2562032b617ee7a0a5fc148549180061a4274cbc (diff)
downloadguile-7311b3e8381f756c09516cedf4151933d8e105ba.tar.gz
(scm_compile_shell_switches): Use scm_from_locale_string instead of
scm_makfrom0str.
Diffstat (limited to 'libguile/script.c')
-rw-r--r--libguile/script.c13
1 files changed, 7 insertions, 6 deletions
diff --git a/libguile/script.c b/libguile/script.c
index 086b9beef..efb15407c 100644
--- a/libguile/script.c
+++ b/libguile/script.c
@@ -503,12 +503,13 @@ scm_compile_shell_switches (int argc, char **argv)
else if (! strcmp (argv[i], "-L")) /* add to %load-path */
{
if (++i < argc)
- user_load_path = scm_cons (scm_list_3 (sym_set_x,
- sym_load_path,
- scm_list_3(sym_cons,
- scm_makfrom0str (argv[i]),
- sym_load_path)),
- user_load_path);
+ user_load_path =
+ scm_cons (scm_list_3 (sym_set_x,
+ sym_load_path,
+ scm_list_3 (sym_cons,
+ scm_from_locale_string (argv[i]),
+ sym_load_path)),
+ user_load_path);
else
scm_shell_usage (1, "missing argument to `-L' switch");
}