Anonymous user
Execute Brain****/Tcl: Difference between revisions
m
→Interpreter Implementation: formatting niceness
mNo edit summary |
m (→Interpreter Implementation: formatting niceness) |
||
Line 43:
incr pc
for {set n 0} {$n || [lindex $p $pc] ne "\]"} {incr pc} {
switch -- [lindex $p $pc] "\[" {incr n} "\]" {incr n -1}
}
}
}
"\]" {
if {[lindex $d $dc]} {
incr pc -1
for {set n 0} {$n || [lindex $p $pc] ne "\["} {incr pc -1} {
switch -- [lindex $p $pc] "\[" {incr n -1} "\]" {incr n}
}
}
| |||