diff options
-rw-r--r-- | parser.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -1647,8 +1647,12 @@ val repl(val bindings, val in_stream, val out_stream, val env) uw_catch_begin (catch_all, exsym, exvals); + uw_push_handler(&uw_handler, cons(warning_s, nil), rw_f); + line_w = linenoise(ls, c_str(prompt, self)); + uw_pop_frame(&uw_handler); + #if CONFIG_FULL_REPL rplacd(multi_line_var, tnil(lino_get_multiline(ls))); #endif |