This commit is contained in:
radical_honesty on #flashsupport 2023-01-13 12:08:16 -08:00 committed by dupa dup
parent a168a48563
commit d4b00068ac

View File

@ -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}
}
}