[QAST dumper] include a bit more info

Raku · Feb 16, 2013 · 97fd401 · 97fd401
1 parent d579a30
commit 97fd401
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 1 deletion.
diff --git a/src/QAST/Stmt.nqp b/src/QAST/Stmt.nqp
@@ -24,4 +24,7 @@ class QAST::Stmt is QAST::Node {
         }
         $result
     }
+    method dump_extra_node_info() {
+        nqp::defined($!resultchild) ?? ":resultchild($!resultchild))" !! ''
+    }
 }
diff --git a/src/QAST/Stmts.nqp b/src/QAST/Stmts.nqp
@@ -24,4 +24,8 @@ class QAST::Stmts is QAST::Node {
         }
         $result
     }
+
+    method dump_extra_node_info() {
+        nqp::defined($!resultchild) ?? ":resultchild($!resultchild))" !! ''
+    }
 }
diff --git a/src/QAST/Var.nqp b/src/QAST/Var.nqp
@@ -20,6 +20,8 @@ class QAST::Var is QAST::Node {
     }
 
     method dump_extra_node_info() {
-        "$!scope $!name";
+        $!decl
+            ?? "$!scope $!name :decl"
+            !! "$!scope $!name";
     }
 }