fixed nested if logic

2026-06-15 12:06:48 +03:00
parent 2609eb4645
commit f7e8e72b81
2 changed files with 2 additions and 2 deletions
@@ -150,7 +150,7 @@ proc lttb_IF {stmt} {
  set relop [string range $stmt $ropos $roend]
  set expr1 [string range $stmt 0 $($ropos-1)]
  set rest [string range $stmt $($roend + 1) end]
-  foreach kw {THEN LET {=} RETURN GOSUB INPUT PRINT GOTO END IF} {
+  foreach kw {THEN IF LET {=} RETURN GOSUB INPUT PRINT GOTO END} {
    set thenpos [string first $kw $rest]
    if {$thenpos > -1} {
      if {$kw eq {=}} {incr thenpos -1}