From ccdd5ad22cef126ed1c5837fc8b8c8ded5eeccd3 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Sun, 18 Jun 2023 20:42:11 -0400
Subject: More sharing & dot cleanup/improvement/fixing

---
 lib/evaluator.tcl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'lib')

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>;"
             }
         }
-- 
cgit v1.2.3