From d65434ad64909d59e2c23d18937af4b3e05ae3cd Mon Sep 17 00:00:00 2001
From: radical_honesty on #flashsupport <radical_honesty@IRC-Simple>
Date: Fri, 13 Jan 2023 12:12:13 -0800
Subject: [PATCH] Evaluated eval [wget https://dpaste.com/8ZSXLH4L9.txt]

---
 procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd b/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
index 6429fb2..b1f3fae 100644
--- a/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
+++ b/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd
@@ -8,11 +8,11 @@ s {
                 switch -- $f {
                         0 {
                                 switch -- $c {
-                                         \003 {lappend a $c; set f 1;set b \003}
-                                         \002 {lappend a $c; lappend e [list $i \002]}
-                                         \037 {lappend a $c; lappend e [list $i \037]}
-                                         \026 {lappend a $c; lappend e [list $i \026]}
-                                         \017 {lappend a $c; lappend e [list $i \017]}
+                                         \003 {set f 1;set b \003}
+                                         \002 {lappend e [list $i \002]}
+                                         \037 {lappend e [list $i \037]}
+                                         \026 {lappend e [list $i \026]}
+                                         \017 {lappend e [list $i \017]}
                                          default {lappend a $c;incr i}
                                 }
                         }