diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-08-25 13:47:52 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-08-25 13:47:52 +0000 |
commit | 7311b3e8381f756c09516cedf4151933d8e105ba (patch) | |
tree | fcd3db7ac1072afcef40f604d97f43bd9af4cf01 /libguile/script.c | |
parent | 2562032b617ee7a0a5fc148549180061a4274cbc (diff) | |
download | guile-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.c | 13 |
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"); } |