nitls: fix broken group tree when there is a chain of empty groups

Signed-off-by: Jean Privat <jean@pryen.org>

diff --git a/src/nitls.nit b/src/nitls.nit
index f875083..4321214 100644 (file)
--- a/src/nitls.nit
+++ b/src/nitls.nit
@@ -178,7 +178,10 @@ if opt_tree.value then
                var pa = mp.mgroup
                while pa != null and not pa.is_interesting do pa = pa.parent
                ot.add(pa, mp)
-               if pa != null then mgroups.add pa
+               while pa != null do
+                       mgroups.add pa
+                       pa = pa.parent
+               end
        end
        for g in mgroups do
                var pa = g.parent