diff options
| author | Omar Rizwan <omar@omar.website> | 2023-06-19 00:42:11 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-06-19 00:44:27 +0000 |
| commit | ccdd5ad22cef126ed1c5837fc8b8c8ded5eeccd3 (patch) | |
| tree | 5b27eb100a281f450419e722e7ce93aaaff6cd20 /lib | |
| parent | Fix dot and probably sharing (diff) | |
| download | folk-ccdd5ad22cef126ed1c5837fc8b8c8ded5eeccd3.tar.gz folk-ccdd5ad22cef126ed1c5837fc8b8c8ded5eeccd3.zip | |
More sharing & dot cleanup/improvement/fixing
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/evaluator.tcl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/evaluator.tcl b/lib/evaluator.tcl index 98a37054..119855ce 100644 --- a/lib/evaluator.tcl +++ b/lib/evaluator.tcl @@ -692,16 +692,15 @@ namespace eval Statements { ;# singleton Statement store dict for {matchId _} [statement parentMatchIds $stmt] { set parents [lmap edge [matchEdges $matchId] {expr { - [dict get $edge type] == 1 ? "<[dict get $edge statement]>" : [continue] + [dict get $edge type] == 1 ? "[dict get $edge statement]" : [continue] }}] - lappend dot "<$matchId> \[label=\"<$matchId> <- $parents\"\];" + lappend dot "<$matchId> \[label=\"$matchId <- $parents\"\];" lappend dot "<$matchId> -> <$id>;" } lappend dot "}" dict for {childMatchId _} [statement childMatchIds $stmt] { - set childMatchId [string map {: _} $childMatchId] lappend dot "<$id> -> <$childMatchId>;" } } |