Finished the Emacs binding.

Now the binding part is finished.

What remains is a bug encountered when planting a fragment to the
forest which intersects a packed node, which would lead to invalid
forests.  This will also cause problem when planting a packed
fragment, but until now my testing grammars do not produce packed
fragments, so this problem is not encountered yet.

I am still figuring out efficient ways to solve this problem.

1 files changed, 8 insertions, 2 deletions

diff --git a/chain/src/item/default/splone.rs b/chain/src/item/default/splone.rs
index 581d1dc..da13c56 100644
--- a/chain/src/item/default/splone.rs
+++ b/chain/src/item/default/splone.rs
@@ -516,7 +516,13 @@ impl DefaultForest<ForestLabel<GrammarLabel>> {
                 if let Some((fragment, _planted)) = fragment {
                     let modified_degree = std::cmp::max(child_degree, 1) - 1;
 
-                    if self.has_same_children(child, node, modified_degree, edge_index)?
+                    dbg!(node, end, edge_index, modified_degree);
+
+                    dbg!(child, child_degree);
+
+                    dbg!(&fragment);
+
+                    if self.has_same_children(child, node, modified_degree, edge_index + 1)?
                         && child_degree != 0
                     {
                         let last_child = self.nth_child(child, child_degree - 1)?;
@@ -651,7 +657,7 @@ impl DefaultForest<ForestLabel<GrammarLabel>> {
         } else if labela.clone_index().is_some() {
             let mut parentsa = self.parents_of(nodea)?;
 
-            assert_eq!(parentsa.len(), 1);
+            // assert_eq!(parentsa.len(), 1);
 
             let parenta = parentsa.next().unwrap().node();