tree: allow quasiquoting into #T syntax.

* eval.c (tree_lit_s, tree_construct_s): New symbol variables.
(expand_qquote_rec): Handle sys:tree-lit syntax generated by
quasi-quoted #T notaton by expanding and converting to
sys:tree-constuct call.
(eval_init): Initialize tree_lit_s and tree_construct_s.

* eval.h (tree_lit_s, tree_construct_s): Declared.

* parser.y (tree): Produce sys:tree-lit syntax when #T is
quasi-quoted, and unquotes occur inside it.

* tree.c (tree_construct_fname, tree_construct): New static
functions.
(tree_init): Register sys:tree-construct intrinsic function.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.h b/eval.h
index 16388691..d10e7f8b 100644
--- a/eval.h
+++ b/eval.h
@@ -27,6 +27,7 @@
 
 extern val dwim_s, lambda_s, progn_s, vector_lit_s, vec_list_s, list_s;
 extern val hash_lit_s, hash_construct_s, struct_lit_s, qref_s, uref_s;
+extern val tree_lit_s, tree_construct_s;
 extern val eval_error_s, if_s, call_s, identity_s;
 extern val eq_s, eql_s, equal_s, less_s;
 extern val car_s, cdr_s;