if the code part of a node is too long, truncate it.

Raku · Jun 17, 2013 · c2eba21 · c2eba21
1 parent 1729750
commit c2eba21
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/QAST/Node.nqp b/src/QAST/Node.nqp
@@ -93,7 +93,11 @@ class QAST::Node {
         }
         if (self.node) {
             nqp::push(@chunks, ' ');
-            nqp::push(@chunks, nqp::escape(self.node));
+            my $escaped_node := nqp::escape(self.node);
+            nqp::push(@chunks, nqp::substr($escaped_node, 0, 50));
+            if (nqp::chars($escaped_node) > 50) {
+                nqp::push(@chunks, "…");
+            }
         }
         nqp::push(@chunks, "\n");
         self.dump_children($indent + 2, @chunks);