temp commit

orchid-extension/src/tree.rs

@@ -20,7 +20,7 @@ use crate::conv::ToExpr;
 use crate::entrypoint::MemberRecord;
 use crate::expr::{Expr, ExprHandle};
 use crate::func_atom::{ExprFunc, Fun};
-use crate::gen_expr::{GExpr, arg, call, lambda, seq};
+use crate::gen_expr::{GExpr, arg, call, lambda, seq, sym_ref};
 use crate::system::SysCtx;
 
 pub type GenTokTree = TokTree<Expr, GExpr>;
@@ -65,6 +65,9 @@ impl TokenVariant<api::ExprTicket> for Expr {
 	}
 }
 
+pub fn x_tok(x: impl ToExpr) -> GenTok { GenTok::NewExpr(x.to_expr()) }
+pub fn ref_tok(path: Sym) -> GenTok { GenTok::NewExpr(sym_ref(path)) }
+
 pub fn cnst(public: bool, name: &str, value: impl ToExpr) -> Vec<GenMember> {
 	vec![GenMember {
 		name: name.to_string(),