From 49035a91a14242f4f140d17af8ebd91670e128f2 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Tue, 9 Jan 2024 23:26:15 +0100
Subject: par: piece-table: don't add empty pieces!

---
 par/piece-table.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/par/piece-table.scm b/par/piece-table.scm
index 9f967c0..1c2940f 100644
--- a/par/piece-table.scm
+++ b/par/piece-table.scm
@@ -172,7 +172,10 @@
                (can-merge-pieces? piece candidate))
         (append! beg (list (merge-pieces! piece candidate)) end)
         (let-values (((first second) (split-piece! piece rem)))
-          (append! beg (list first candidate second) end))))))
+          (append! beg
+                   (remove (lambda (p) (= 0 (piece-length p)))
+                           (list first candidate second))
+                   end))))))
 
 
 ; TODO: SET-CDR for the win?
-- 
cgit v1.2.3