mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-25 04:40:19 +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 */ else if (! strcmp (argv[i], "-L")) /* add to %load-path */
{ {
if (++i < argc) if (++i < argc)
user_load_path = scm_cons (scm_list_3 (sym_set_x, user_load_path =
sym_load_path, scm_cons (scm_list_3 (sym_set_x,
scm_list_3(sym_cons, sym_load_path,
scm_makfrom0str (argv[i]), scm_list_3 (sym_cons,
sym_load_path)), scm_from_locale_string (argv[i]),
user_load_path); sym_load_path)),
user_load_path);
else else
scm_shell_usage (1, "missing argument to `-L' switch"); scm_shell_usage (1, "missing argument to `-L' switch");
} }