luxferre/lttb
1
0
Fork 0
Code Actions Activity

rnd fixes

Browse Source
This commit is contained in:
Luxferre
2026-06-13 20:20:58 +03:00
parent 7134522353
commit 864385f79e
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lttb.tcl
+1 -2
View File
@@ -94,7 +94,7 @@ proc lttb_eval {lttb_ex} {
if {[string is digit $lttb_ex]} {return [lttb_norm $(int($lttb_ex))]} if {[string is digit $lttb_ex]} {return [lttb_norm $(int($lttb_ex))]}
lassign {{( 0 + 1 - 1 * 2 / 2 $ 3} {} {} {} {} 0} precmap valbuf prevc valstack opstack i lassign {{( 0 + 1 - 1 * 2 / 2 $ 3} {} {} {} {} 0} precmap valbuf prevc valstack opstack i
set l [string length $lttb_ex] set l [string length $lttb_ex]
loop i 0 $l { for {set i 0} {$i < $l} {incr i} {
set c [string index $lttb_ex $i] set c [string index $lttb_ex $i]
if [string is space $c] {continue} if [string is space $c] {continue}
if [string is digit $c] { if [string is digit $c] {
@@ -105,7 +105,6 @@ proc lttb_eval {lttb_ex} {
set valbuf {} set valbuf {}
} }
if {[string range $lttb_ex $i $($i+2)] eq {RND}} { if {[string range $lttb_ex $i $($i+2)] eq {RND}} {
lappend valstack 0
set c {$} set c {$}
incr i 2 incr i 2
} elseif {[string is upper $c]} { } elseif {[string is upper $c]} {