fixing bug introduced when the space after the -l option was made optional

This commit is contained in:
Alex Shinn 2009-12-31 13:10:35 +09:00
parent cb44b8f4fe
commit 5469e699b6

2
main.c
View file

@ -107,7 +107,7 @@ void run_main (int argc, char **argv) {
case 'l': case 'l':
load_init(); load_init();
arg = ((argv[i][2] == '\0') ? argv[++i] : argv[i]+2); arg = ((argv[i][2] == '\0') ? argv[++i] : argv[i]+2);
check_exception(ctx, sexp_load_module_file(ctx, argv[++i], env)); check_exception(ctx, sexp_load_module_file(ctx, arg, env));
break; break;
case 'm': case 'm':
load_init(); load_init();