Minor tidyup and some more comments

1 files changed, 4 insertions, 0 deletions

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;