From 00886e535241a994b71ca1ce62f24f5f11ec9255 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sat, 24 Jan 2026 20:17:20 +1300
Subject: Minor tidyup and some more comments

---
 src/kompsos-collector.ads | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/kompsos-collector.ads')

diff --git a/src/kompsos-collector.ads b/src/kompsos-collector.ads
index 93fd6d4..ac451c2 100644
--- a/src/kompsos-collector.ads
+++ b/src/kompsos-collector.ads
@@ -100,6 +100,10 @@ private
 
 
 
+    --  Used to keep track of and connect up bookkeeping nodes corresponding to
+    --  graph nodes with more than one parent, so as to avoid ending up with an
+    --  exponential tree instead of the desired directed acyclic graph.
+
     type Loose_Book is record
         Used : Positive               := 1;
         Ptr  : Graph_Component_Access := null;
-- 
cgit