* eval.c (symacro_k, fun_k): New keyword variables.

(lexical_lisp1_binding): New static function.
(eval_init): Initialize symacro_k and fun_k; register
new intrinsic function lexical-lisp1-binding.

* match.h (var_k): Existing external name declared.

* txr.1: Documented lexical-lisp1-binding.

1 files changed, 1 insertions, 1 deletions

diff --git a/match.h b/match.h
index dcb88c7a..2a56cf38 100644
--- a/match.h
+++ b/match.h
@@ -26,7 +26,7 @@
 
 extern val text_s, choose_s, gather_s, do_s, require_s;
 extern val close_s, load_s, include_s, mod_s, modlast_s, line_s;
-extern val counter_k, env_k;
+extern val counter_k, env_k, var_k;
 val format_field(val string_or_list, val modifier, val filter, val eval_fun);
 val match_filter(val name, val arg, val other_args);
 val match_fun(val name, val args, val input, val files);