New macro system and stdlib additions

orchid-api/src/expr.rs

@@ -43,17 +43,6 @@ pub struct Acquire(pub SysId, pub ExprTicket);
 #[extends(ExprNotif, ExtHostNotif)]
 pub struct Release(pub SysId, pub ExprTicket);
 
-/// Decrement the reference count for one system and increment it for another,
-/// to indicate passing an owned reference. Equivalent to [Acquire] followed by
-/// [Release].
-#[derive(Clone, Copy, Debug, Hash, PartialEq, Eq, Coding, Hierarchy)]
-#[extends(ExprNotif, ExtHostNotif)]
-pub struct Move {
-	pub dec: SysId,
-	pub inc: SysId,
-	pub expr: ExprTicket,
-}
-
 /// A description of a new expression. It is used as the return value of
 /// [crate::atom::Call] or [crate::atom::CallRef], or a constant in the
 /// [crate::tree::Tree].
@@ -67,8 +56,9 @@ pub enum ExpressionKind {
 	/// template
 	Arg(u64),
 	/// Insert the specified host-expression in the template here. When the clause
-	/// is used in the const tree, this variant is forbidden.
-	Slot { tk: ExprTicket, by_value: bool },
+	/// is used in the const tree, this variant is forbidden. The ticket held
+	/// within is always owning. To avoid a leak, it must be deserialized.
+	Slot(ExprTicket),
 	/// The lhs must be fully processed before the rhs can be processed.
 	/// Equivalent to Haskell's function of the same name
 	Seq(Box<Expression>, Box<Expression>),
@@ -115,11 +105,12 @@ impl Request for Inspect {
 	type Response = Inspected;
 }
 
-#[derive(Clone, Copy, Debug, Hash, PartialEq, Eq, Coding, Hierarchy)]
+#[derive(Clone, Debug, Coding, Hierarchy)]
 #[extends(ExtHostReq)]
 #[extendable]
 pub enum ExprReq {
 	Inspect(Inspect),
+	Create(Create),
 }
 
 #[derive(Clone, Copy, Debug, Hash, PartialEq, Eq, Coding, Hierarchy)]
@@ -128,5 +119,11 @@ pub enum ExprReq {
 pub enum ExprNotif {
 	Acquire(Acquire),
 	Release(Release),
-	Move(Move),
+}
+
+#[derive(Clone, Debug, Coding, Hierarchy)]
+#[extends(ExprReq, ExtHostReq)]
+pub struct Create(pub Expression);
+impl Request for Create {
+	type Response = ExprTicket;
 }