Dump the main and load for CompUnits.

Report errors while dumping better and relax the expectations on extra_children().

Author: pmurias

src/QAST/Children.nqp

@@ -29,7 +29,7 @@ role QAST::Children {
                 nqp::push(@onto, "\n");
             }
         }
-	CATCH { nqp::push(@onto, "Oops!!!") }
+	CATCH { nqp::push(@onto, "Oops!!! {nqp::getmessage($_)}\n") }
     }
 
     method extra_children() {
@@ -43,7 +43,7 @@ role QAST::Children {
                 nqp::push(@onto, nqp::x(' ', $indent));
                 nqp::push(@onto, "[" ~ $tag ~ "]");
                 nqp::push(@onto, "\n");
-                self.dump_node_list($indent+2, @onto, $nodes);
+                self.dump_node_list($indent+2, @onto, nqp::islist($nodes) ?? $nodes !! [$nodes]);
             }
             $extra := $extra + nqp::elems($nodes);
         }

src/QAST/CompUnit.nqp

@@ -62,7 +62,9 @@ class QAST::CompUnit is QAST::Node does QAST::Children {
     method extra_children() {
         [
             'pre_deserialize', self.pre_deserialize,
-            'post_deserialize', self.post_deserialize
+            'post_deserialize', self.post_deserialize,
+            'main', self.main ?? [self.main] !! [],
+            'load', self.load ?? [self.load] !! [],
         ];
     }
 }