New --lisp option: treat unsuffixed files as Lisp.

* txr.c (help): Added help text.
(txr_main): Handle lisp option.

1 files changed, 4 insertions, 0 deletions

diff --git a/txr.c b/txr.c
index ba4e86a2..effb3c2b 100644
--- a/txr.c
+++ b/txr.c
@@ -136,6 +136,7 @@ static void help(void)
 "--license              Display software license\n"
 "                       Use of txr implies agreement with the disclaimer\n"
 "                       section at the bottom of the license.\n"
+"--lisp                 Treat unsuffixed query files as TXR Lisp.\n"
 "--lisp-bindings        Synonym for -l\n"
 "--debugger             Synonym for -d\n"
 "--noninteractive       Synonym for -n\n"
@@ -485,6 +486,9 @@ int txr_main(int argc, char **argv)
         opt_lisp_bindings = 1;
         opt_print_bindings = 1;
         continue;
+      } else if (equal(opt, lit("lisp"))) {
+        txr_lisp_p = t;
+        continue;
       } else if (equal(arg, lit("debugger"))) {
 #if CONFIG_DEBUG_SUPPORT
         opt_debugger = 1;