[Gd-chatter] r11318 - trunk/libraries/graphviz-renderer

[hannes at gwydiondylan.org]

Author: hannes
Date: Fri May  4 15:13:15 2007
New Revision: 11318

Modified:
   trunk/libraries/graphviz-renderer/dot-generator.dylan
Log:
Job: minor
add ';' to end of lines

Modified: trunk/libraries/graphviz-renderer/dot-generator.dylan
==============================================================================
--- trunk/libraries/graphviz-renderer/dot-generator.dylan	(original)
+++ trunk/libraries/graphviz-renderer/dot-generator.dylan	Fri May  4 15:13:15 2007
@@ -28,7 +28,7 @@
 define function process-node (node :: <node>, output :: <stream>) => ()
   local method print-edge (target :: <node>)
           write(output, concatenate("  \"", node.label, "\" -> \"",
-                                    target.label, "\"\n"));
+                                    target.label, "\";\n"));
         end;
   if (node.attributes.size > 0)
     let attrs = make(<stretchy-vector>);
@@ -36,7 +36,7 @@
       add!(attrs, concatenate(ele, " = \"", node.attributes[ele], "\""));
     end;
     attrs := reduce1(method(x, y) concatenate(x, ",", y) end, attrs);
-    write(output, concatenate("  \"", node.label, "\" [", attrs, "]\n"))
+    write(output, concatenate("  \"", node.label, "\" [", attrs, "];\n"))
   end;
   do(print-edge, node.successors);
 end;