From 149c52ef580e13772c074fb12f2403a7ad088aa9 Mon Sep 17 00:00:00 2001 From: Julian Noble Date: Wed, 24 Dec 2025 12:22:47 +1100 Subject: [PATCH] fix punk::args indexexpression --- src/bootsupport/modules/punk/args-0.2.1.tm | 2 +- src/modules/punk/args-999999.0a1.0.tm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/bootsupport/modules/punk/args-0.2.1.tm b/src/bootsupport/modules/punk/args-0.2.1.tm index 558f6bde..24f98b6b 100644 --- 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] diff --git a/src/modules/punk/args-999999.0a1.0.tm b/src/modules/punk/args-999999.0a1.0.tm index 71743338..a3eced11 100644 --- 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]