diff options
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | txr.c | 6 |
2 files changed, 8 insertions, 2 deletions
@@ -1,5 +1,9 @@ 2014-03-05 Kaz Kylheku <kaz@kylheku.com> + * txr.c (txr_main): Don't push back arg into arg_list if arg is nil. + +2014-03-05 Kaz Kylheku <kaz@kylheku.com> + Fixing regression caused by the 2014-02-19 change ("Fixed long-running issue ..."). @@ -382,7 +382,8 @@ int txr_main(int argc, char **argv) chr_str(specstring, minus(length_str(specstring), one)) != chr('\n')) specstring = cat_str(list(specstring, string(L"\n"), nao), nil); yyin_stream = make_string_byte_input_stream(specstring); - push(arg, &arg_list); + if (arg) + push(arg, &arg_list); } else if (spec_file) { if (wcscmp(c_str(spec_file), L"-") != 0) { FILE *in = w_fopen(c_str(spec_file), L"r"); @@ -393,7 +394,8 @@ int txr_main(int argc, char **argv) } else { spec_file_str = lit("stdin"); } - push(arg, &arg_list); + if (arg) + push(arg, &arg_list); } else { if (!arg) { if (evaled) |