From df3566afa1a0b329ffa22773e79f1c67281e44c4 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 5 Mar 2014 23:55:06 -0800 Subject: * txr.c (txr_main): Don't push back arg into arg_list if arg is nil. --- ChangeLog | 4 ++++ txr.c | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index c78565f9..4d3b3db0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2014-03-05 Kaz Kylheku + + * txr.c (txr_main): Don't push back arg into arg_list if arg is nil. + 2014-03-05 Kaz Kylheku Fixing regression caused by the 2014-02-19 change ("Fixed long-running diff --git a/txr.c b/txr.c index fdc33eeb..2e3b6ac5 100644 --- a/txr.c +++ b/txr.c @@ -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) -- cgit v1.2.3