listener: new --noprofile option.

* parser.c (repl): Set the rcfile variable to nil if
opt_noprofile is true, to suppress reading it.

* txr.c (op_noprofile): New global variable.
(help): Add help text.
(txr_main): Recognize noprofile option and set variable.

* txr.h (opt_noprofile): Declared.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/parser.c b/parser.c
index a6aaf096..bc01c2bf 100644
--- a/parser.c
+++ b/parser.c
@@ -1470,7 +1470,7 @@ val repl(val bindings, val in_stream, val out_stream, val env)
   val home = if3(repl_level == 1, get_home_path(), nil);
   val histfile = if2(home, scat2(home, lit("/.txr_history")));
   const wchar_t *histfile_w = if3(home, c_str(histfile), NULL);
-  val rcfile = if2(home, scat2(home, lit("/.txr_profile")));
+  val rcfile = if2(home && !opt_noprofile, scat2(home, lit("/.txr_profile")));
   val old_sig_handler = set_sig_handler(num(SIGINT), func_n2(repl_intr));
   val hist_len_var = lookup_global_var(listener_hist_len_s);
   val multi_line_var = lookup_global_var(listener_multi_line_p_s);