From ee57e1d0d5324eb26de67dddc4ebe044b90f24a6 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Sat, 2 Sep 2023 04:27:07 -0400
Subject: Small optimization to Commit: uplevel is slow

---
 main.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/main.tcl b/main.tcl
index 9a7a4d1a..8e8ded8d 100644
--- a/main.tcl
+++ b/main.tcl
@@ -166,8 +166,9 @@ proc After {n unit body} {
 set ::committed [dict create]
 set ::toCommit [dict create]
 proc Commit {args} {
+    upvar this this
     set body [lindex $args end]
-    set key [list Commit [uplevel {expr {[info exists this] ? $this : "<unknown>"}}] {*}[lreplace $args end end]]
+    set key [list Commit [expr {[info exists this] ? $this : "<unknown>"}] {*}[lreplace $args end end]]
     if {$body eq ""} {
         dict set ::toCommit $key $body
     } else {
-- 
cgit v1.2.3