From d4b00068acf364b64666a54fef4da60fa83e455a Mon Sep 17 00:00:00 2001 From: radical_honesty on #flashsupport Date: Fri, 13 Jan 2023 12:08:16 -0800 Subject: [PATCH] Evaluated eval [wget https://dpaste.com/GKWSV7XME.txt] --- procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd b/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd index b1f3fae..796c482 100644 --- a/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd +++ b/procs/9dee0e0c9de58ce43e88d97c66a4ded3761de9fd @@ -9,10 +9,10 @@ s { 0 { switch -- $c { \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]} + \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]} default {lappend a $c;incr i} } }