cal: tag root object as such

1 files changed, 5 insertions, 1 deletions

diff --git a/cal.lua b/cal.lua
index 0cd97b5..83bcea0 100644
--- a/cal.lua
+++ b/cal.lua
@@ -327,7 +327,11 @@ local calendar_of_lines do
 
     if curname == "begin" then
       if stringlower (curvalue) == "vcalendar" then
-        acc = { value = { } }
+        --- this is a root object
+        acc =
+          { value = { }
+          , name  = "root"
+          }
       end
 
       local ok, nn, ret = process (lines, n + 1,