fix punk::args indexexpression

3 weeks ago · 149c52ef58
2 changed files with 2 additions and 2 deletions
--- a/src/bootsupport/modules/punk/args-0.2.1.tm
+++ b/src/bootsupport/modules/punk/args-0.2.1.tm
@ -6345,7 +6345,7 @@ tcl::namespace::eval punk::args {
                    }
                    indexexpression {
                        #tcl 9.1+? tip 615 'string is index'
-                        if {$echeck eq "" || [catch {lindex {} $e_check}]} {
+                        if {$e_check eq "" || [catch {lindex {} $e_check}]} {
                            set msg "$argclass $argname for %caller% requires type indexexpression. An index as used in Tcl list commands. Received: '$e_check'"
                            #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]
--- a/src/modules/punk/args-999999.0a1.0.tm
+++ b/src/modules/punk/args-999999.0a1.0.tm
@ -6345,7 +6345,7 @@ tcl::namespace::eval punk::args {
                    }
                    indexexpression {
                        #tcl 9.1+? tip 615 'string is index'
-                        if {$echeck eq "" || [catch {lindex {} $e_check}]} {
+                        if {$e_check eq "" || [catch {lindex {} $e_check}]} {
                            set msg "$argclass $argname for %caller% requires type indexexpression. An index as used in Tcl list commands. Received: '$e_check'"
                            #return -options [list -code error -errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs]] $msg
                            lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]