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.

---
 txr.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'txr.c')

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