* txr.c (txr_main): Handle Lisp files.

2 files changed, 7 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index b686bfaf..c77bec71 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2015-06-13  Kaz Kylheku  <kaz@kylheku.com>
 
+	* txr.c (txr_main): Handle Lisp files.
+
+2015-06-13  Kaz Kylheku  <kaz@kylheku.com>
+
 	Lisp load macro.
 
 	* eval.c (sys_load_s): New symbol variable.
diff --git a/txr.c b/txr.c
index af453af2..ba4e86a2 100644
--- a/txr.c
+++ b/txr.c
@@ -655,6 +655,7 @@ int txr_main(int argc, char **argv)
 
   reg_var(intern(lit("*args*"), user_package), arg_list);
 
+  if (!txr_lisp_p)
   {
     int gc = gc_state(0);
     parser_t parser;
@@ -680,4 +681,6 @@ int txr_main(int argc, char **argv)
       return parser.errors ? EXIT_FAILURE : retval;
     }
   }
+
+  return read_eval_stream(parse_stream, std_error) ? 0 : EXIT_FAILURE;
 }