diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2022-01-17 07:02:58 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2022-01-17 07:02:58 -0800 |
commit | 979a9e38899271c647de29c506b04e753380cb2e (patch) | |
tree | 4926f3408ebe3054c925f1ab954151de0cdf3b08 /match.h | |
parent | 4c3316acecc462283c0c853369af93776c478d44 (diff) | |
download | txr-979a9e38899271c647de29c506b04e753380cb2e.tar.gz txr-979a9e38899271c647de29c506b04e753380cb2e.tar.bz2 txr-979a9e38899271c647de29c506b04e753380cb2e.zip |
New function: match-fboundp.
User vapnik spaknik was asking in the mailing list whether
there is an existence test for TXR pattern functions. Now
there is.
* eval.c (eval_init): Register match-fboundp intrinsic.
* match.c (match_fbound): New function.
* match.h (match_fbound): Declared.
* tests/011/txr-case.txr: New test cases.
* txr.1: Documented.
* stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'match.h')
-rw-r--r-- | match.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -34,6 +34,7 @@ val match_expand_keyword_args(val elem); val match_expand_elem(val elem); val match_filter(val name, val arg, val other_args); val match_fun(val name, val args, val input, val files); +val match_fboundp(val name); val include(val specline); val extract(val spec, val filenames, val bindings); void match_reg_var(val sym); |