diff options
| author | Omar Rizwan <omar@omar.website> | 2023-09-02 08:27:07 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-09-02 08:27:07 +0000 |
| commit | ee57e1d0d5324eb26de67dddc4ebe044b90f24a6 (patch) | |
| tree | f15eb6d4215b0bfc8082e8debfb13fb119434075 | |
| parent | Hold onto libdrm master. Fixes typing breaking Folk display (diff) | |
| download | folk-ee57e1d0d5324eb26de67dddc4ebe044b90f24a6.tar.gz folk-ee57e1d0d5324eb26de67dddc4ebe044b90f24a6.zip | |
Small optimization to Commit: uplevel is slow
| -rw-r--r-- | main.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 { |