* txr.c (txr_main): Don't push back arg into arg_list if arg is nil.

2 files changed, 8 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index c78565f9..4d3b3db0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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 ...").
 
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)