dump-asy.pl: Add marks

diff --git a/contrib/dump-asy.pl b/contrib/dump-asy.pl
index 9bb2db3aa4641385d2f6c7ba05fe8bbe5d5d1924..636b20ce3a3f3324b6712efa3e04de1d4362c255 100755 (executable)
--- a/contrib/dump-asy.pl
+++ b/contrib/dump-asy.pl
@@ -47,7 +47,8 @@ sub dump_node {
     if (!defined($n->{window})) {
         $type = $n->{layout};
     }
-    my $name = qq|``$na'' ($type)|;
+    my $marks = $n->{marks} ? ' [' . join('][', @{$n->{marks}}) . ']' : '';
+    my $name = qq|``$na'' ($type)$marks|;
 
     print $tmp "TreeNode n" . $n->{id} . " = makeNode(";