From f57d6a2b3c292a94b61b07b0087e95fa2f8ea6bd Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 13 Jun 2015 07:32:49 -0700
Subject: * txr.c (txr_main): Handle Lisp files.

---
 ChangeLog | 4 ++++
 txr.c     | 3 +++
 2 files changed, 7 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index b686bfaf..c77bec71 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+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.
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;
 }
-- 
cgit v1.2.3