Commit 60482089 authored by medranocalvo's avatar medranocalvo

tcldot: fix listsubgraphs

parent 3a83759e
......@@ -213,7 +213,7 @@ int graphcmd(ClientData clientData, Tcl_Interp * interp,
} else if ((c == 'l')
&& (strncmp(argv[1], "listsubgraphs", length) == 0)) {
for (sg = agfstsubg(g); sg; sg = agnxtsubg(sg)) {
Tcl_AppendElement(interp, obj2cmd(g));
Tcl_AppendElement(interp, obj2cmd(sg));
}
return TCL_OK;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment