Fix *listener-hist-len* in ~/.txr_profile not working.

On startup, the history is trimmed to 100 lines regardless of
the variable's value in the profile file.

* parser.c (repl): Load the rc file first, then load the
history file. Furthermore, call lino_hist_set_max_len
between these operations with the latest value pulled
from the *listener-hist-len* variable.

1 files changed, 5 insertions, 3 deletions

diff --git a/parser.c b/parser.c
index 6caa3a41..5e607fd5 100644
--- a/parser.c
+++ b/parser.c
@@ -640,12 +640,14 @@ val repl(val bindings, val in_stream, val out_stream)
   lino_set_atom_cb(ls, provide_atom, 0);
   lino_set_tempfile_suffix(ls, ".tl");
 
-  if (histfile)
-    lino_hist_load(ls, histfile_u8);
-
   if (rcfile)
     load_rcfile(rcfile);
 
+  lino_hist_set_max_len(ls, c_num(cdr(hist_len_var)));
+
+  if (histfile)
+    lino_hist_load(ls, histfile_u8);
+
   while (!done) {
     val prompt = format(nil, lit("~a> "), counter, nao);
     val prev_counter = counter;