Evaluated eval [wget https://dpaste.com/9RSAV65EW.txt]
This commit is contained in:
parent
250a01b24c
commit
63d2df2ea0
@ -9,7 +9,7 @@
|
|||||||
set r ""
|
set r ""
|
||||||
foreach f [lindex $c 1] {
|
foreach f [lindex $c 1] {
|
||||||
lappend debug "working on $f";
|
lappend debug "working on $f";
|
||||||
append r [lindex [lindex $c 0] $f];
|
append r [lindex [lindex $c 0] [lindex $f 0]];
|
||||||
lappend debug "actually appended the character to be formatted: $r";
|
lappend debug "actually appended the character to be formatted: $r";
|
||||||
if {[lindex $f 0] > $n} {
|
if {[lindex $f 0] > $n} {
|
||||||
lappend debug "reached end of string"
|
lappend debug "reached end of string"
|
||||||
|
Loading…
x
Reference in New Issue
Block a user