diff options
Diffstat (limited to 'parser.c')
-rw-r--r-- | parser.c | 13 |
1 files changed, 13 insertions, 0 deletions
@@ -60,6 +60,7 @@ #include "parser.h" #include "regex.h" #include "itypes.h" +#include "arith.h" #include "buf.h" #include "vm.h" #include "txr.h" @@ -1459,6 +1460,7 @@ val repl(val bindings, val in_stream, val out_stream, val env) val rw_f = func_f1v(out_stream, repl_warning); val saved_dyn_env = set_dyn_env(make_env(nil, nil, dyn_env)); val brackets = mkstring(num_fast(repl_level), chr('>')); + cnum i; env_vbind(dyn_env, stderr_s, out_stream); @@ -1467,6 +1469,17 @@ val repl(val bindings, val in_stream, val out_stream, val env) reg_varl(car(binding), cdr(binding)); } + for (i = 1; i <= 20; i++) { + val name = format(nil, lit("*-~d"), num_fast(i), nao); + val sym = intern(name, user_package); + reg_symacro(sym, list(dwim_s, result_hash_sym, + list(macro_time_s, + list(mod_s, + list(minus_s, var_counter_sym, + num_fast(i), nao), + num_fast(100), nao), nao), nao)); + } + reg_varl(result_hash_sym, result_hash); lino_set_completion_cb(ls, provide_completions, 0); |