diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2017-02-13 17:51:00 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2017-02-13 17:51:00 -0800 |
commit | 28020fb827625d41c1252c9e34690114607506ec (patch) | |
tree | 0872144345372cb1e9a789d2af8683bafd1a3e49 /match.c | |
parent | b9b5bc1bb557657de2848252ca06f1c68138e397 (diff) | |
download | txr-28020fb827625d41c1252c9e34690114607506ec.tar.gz txr-28020fb827625d41c1252c9e34690114607506ec.tar.bz2 txr-28020fb827625d41c1252c9e34690114607506ec.zip |
Support horizontal form of @(throw).
* match.c (dir_tables_init): Wire throw_s into horizontal
dispatch table via hv_trampoline.
* txr.1: Documented.
Diffstat (limited to 'match.c')
-rw-r--r-- | match.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -4580,6 +4580,7 @@ static void dir_tables_init(void) sethash(h_directive_table, choose_s, cptr(coerce(mem_t *, h_parallel))); sethash(h_directive_table, trailer_s, cptr(coerce(mem_t *, h_trailer))); sethash(h_directive_table, define_s, cptr(coerce(mem_t *, h_define))); + sethash(h_directive_table, throw_s, cptr(coerce(mem_t *, hv_trampoline))); sethash(h_directive_table, eol_s, cptr(coerce(mem_t *, h_eol))); sethash(h_directive_table, chr_s, cptr(coerce(mem_t *, h_chr))); sethash(h_directive_table, do_s, cptr(coerce(mem_t *, h_do))); |