mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

(scm_compile_shell_switches): Use scm_from_locale_string instead of

Browse source 
scm_makfrom0str.
This commit is contained in:
Marius Vollmer 2004-08-25 13:47:52 +00:00
parent 2562032b61
commit 7311b3e838
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/script.c
View file

@ -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");
}