transfer commit

src/executor/mod.rs

@@ -1,8 +1,5 @@
-mod foreign;
-// mod normalize;
+mod normalize;
 mod partial_hash;
 mod reduction_tree;
 mod apply_lambda;
-mod syntax_eq;
-pub use foreign::ExternFn;
-pub use foreign::Atom;
+mod syntax_eq;

src/executor/reduction_tree.rs

@@ -95,3 +95,8 @@ fn direct_reductions(ex: Mrc<Expr>) -> impl Iterator<Item = Mrc<Expr>> {
   })
 }
 
+/*
+
+
+
+ */

src/executor/syntax_eq.rs

@@ -64,6 +64,12 @@ impl Context {
     })
   }
 
+  fn unify_clauses(&mut self,
+    left: &Mrc<[Clause]>, right: &Mrc<[Clause]>, lambdas: LambdaMap
+  ) -> Result<Product2<Clause>, UnifError> {
+    if left.len() != right.len() {return Err(UnifError::Conflict)}
+  }
+
   fn unify_clause(&mut self,
     left: &Clause, right: &Clause, lambdas: LambdaMap
   ) -> Result<Product2<Clause>, UnifError> {