Protocols and operators mostly

orchid-std/src/macros/std_macros.rs

@@ -95,6 +95,30 @@ pub async fn gen_std_macro_lib() -> Vec<GenMember> {
 				.finish(),
 			fun(false, "matcher_body", tuple_matcher_body),
 		]),
+		prefix("record", [
+			build_macro(None, ["r"])
+			.rule(mactreev!(std::record::r[ "...$" elements 0 ]), [async |[elements]: [_;_]| {
+				exec(async move |mut h| {
+					let tup = h
+						.exec::<HomoTpl<TAtom<MacTree>>>(call(sym_ref(sym!(macros::resolve)), [
+							mactree!((macros::common::comma_list "push" elements ;)).to_gen().await,
+						]))
+						.await?;
+					let val = stream::iter(&tup.0[..])
+						.fold(sym_ref(sym!(std::tuple::empty)), async |head, new| {
+							call(sym_ref(sym!(std::tuple::cat)), [
+								head,
+								call(sym_ref(sym!(std::tuple::one)), [call(
+									sym_ref(sym!(macros::resolve)),
+									[new.clone().to_gen().await],
+								)]),
+							])
+						})
+						.await;
+					Ok(val)
+				}).await
+			}]).finish(),
+		])
 	])
 }