Simple indirection on pattern functions: @(call).

* eval.h (call_s): Declared.

* match.c (h_call, v_call): New static function.
(dir_tables_init): Register v_call in v_directive_table
under call symbol. Likewise h_call in h_directive_table.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/eval.h b/eval.h
index ae5008f1..c0cce698 100644
--- a/eval.h
+++ b/eval.h
@@ -26,7 +26,7 @@
 
 extern val dwim_s, lambda_s, vector_lit_s, vec_list_s, list_s;
 extern val hash_lit_s, hash_construct_s, struct_lit_s, qref_s;
-extern val eval_error_s, if_s;
+extern val eval_error_s, if_s, call_s;
 extern val eq_s, eql_s, equal_s;
 extern val last_form_evaled, last_form_expanded;