diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-10 06:47:46 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-10 06:47:46 -0700 |
commit | c8b4a77879213c8e3978feed1b92f3f4cdadb4d0 (patch) | |
tree | a2e98d7a0ca3b05146bee5dce01a96d49db37716 /match.h | |
parent | c739fd374884676993c88f7a8e223988d622e5d6 (diff) | |
download | txr-c8b4a77879213c8e3978feed1b92f3f4cdadb4d0.tar.gz txr-c8b4a77879213c8e3978feed1b92f3f4cdadb4d0.tar.bz2 txr-c8b4a77879213c8e3978feed1b92f3f4cdadb4d0.zip |
parser: @(if) hack in output must use usr package.
* match.c (else_s, elif_s): New symbol variables.
(syms_init): Initialize new variable with interned symbols.
* match.h (else_s, elif_s): Declared.
* parser.y (not_a_clause): Refer to if_s, else_s and elif_s,
which are symbols in the usr package, instead of intering
symbols in whatever package is current.
Diffstat (limited to 'match.h')
-rw-r--r-- | match.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -27,6 +27,7 @@ extern val text_s, choose_s, gather_s, do_s, mdo_s, require_s, in_package_s; extern val close_s, load_s, include_s, mod_s, modlast_s, line_s; +extern val else_s, elif_s; extern val counter_k, vars_k, lists_k, env_k, var_k, into_k, named_k; val match_expand_keyword_args(val elem); val match_expand_elem(val elem); |