First cut at implementation of macros.

* eval.c (top_mb, defmacro_s, macro_time_s, whole_k, env_k): New global
variables.
(expand_params): Recurse to handle macro parameter lists too.
(bind_macro_params, op_defmacro, expand_macro): New static functions.
(expand): Evaluate defmacro forms and macro-time forms at expansion
time. Recognize and expand macros (albeit not yet with proper lexical
scoping: local bindings are not able to shadow a macro).
(eval_init): Protect top_mb from GC and initialize it.
Intern new symbols defmacro, macro-time, and :whole.
Register defmacro operator in op_table.

* match.h (env_k): Added declaration for existing external variable.

1 files changed, 1 insertions, 1 deletions

diff --git a/match.h b/match.h
index 5b9a84e7..903ab855 100644
--- a/match.h
+++ b/match.h
@@ -25,7 +25,7 @@
  */
 
 extern val text_s, choose_s, gather_s, do_s, require_s;
-extern val close_s, load_s, mod_s, modlast_s, counter_k;
+extern val close_s, load_s, mod_s, modlast_s, counter_k, env_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);