This commit is contained in:
radical_honesty on #flashsupport 2023-01-13 12:12:13 -08:00 committed by dupa dup
parent 0e8e0a4813
commit d65434ad64

View File

@ -8,11 +8,11 @@ s {
switch -- $f { switch -- $f {
0 { 0 {
switch -- $c { switch -- $c {
\003 {lappend a $c; set f 1;set b \003} \003 {set f 1;set b \003}
\002 {lappend a $c; lappend e [list $i \002]} \002 {lappend e [list $i \002]}
\037 {lappend a $c; lappend e [list $i \037]} \037 {lappend e [list $i \037]}
\026 {lappend a $c; lappend e [list $i \026]} \026 {lappend e [list $i \026]}
\017 {lappend a $c; lappend e [list $i \017]} \017 {lappend e [list $i \017]}
default {lappend a $c;incr i} default {lappend a $c;incr i}
} }
} }