From 4093ab7373585cdedaed8a6bc7b5d1755554b554 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Tue, 14 Feb 2023 00:50:06 -0500
Subject: More small bits of cleanup

---
 lib/environment.tcl | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'lib')

diff --git a/lib/environment.tcl b/lib/environment.tcl
index e8e76a9c..f23b613f 100644
--- a/lib/environment.tcl
+++ b/lib/environment.tcl
@@ -9,13 +9,15 @@ proc serializeEnvironment {} {
             dict set env [namespace tail $name] [set $name]
         }
     }
-    foreach procName [info procs ::SerializableEnvironment::*] {
-        dict set env ^[namespace tail $procName] \
-            [list [info args $procName] [info body $procName]]
-    }
     foreach importName [namespace eval ::SerializableEnvironment {namespace import}] {
         dict set env %$importName [namespace origin ::SerializableEnvironment::$importName]
     }
+    foreach procName [info procs ::SerializableEnvironment::*] {
+        if {![dict exists $env %[namespace tail $procName]]} {
+            dict set env ^[namespace tail $procName] \
+                [list [info args $procName] [info body $procName]]
+        }
+    }
     set env
 }
 
-- 
cgit v1.2.3