jn
/
punkshell
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

fix punk::args indexexpression

master
Julian Noble 3 weeks ago
parent
f84859276b
commit
149c52ef58
2 changed files with 2 additions and 2 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 2
      src/bootsupport/modules/punk/args-0.2.1.tm
  2. 2
      src/modules/punk/args-999999.0a1.0.tm

2
src/bootsupport/modules/punk/args-0.2.1.tm
Unescape View File

@ -6345,7 +6345,7 @@ tcl::namespace::eval punk::args {
} }
indexexpression { indexexpression {
#tcl 9.1+? tip 615 'string is index' #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'" 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 #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] lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]

2
src/modules/punk/args-999999.0a1.0.tm
Unescape View File

@ -6345,7 +6345,7 @@ tcl::namespace::eval punk::args {
} }
indexexpression { indexexpression {
#tcl 9.1+? tip 615 'string is index' #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'" 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 #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] lset clause_results $c_idx $a_idx [list errorcode [list PUNKARGS VALIDATION [list typemismatch $type] -badarg $argname -argspecs $argspecs] msg $msg]

Write Preview
Loading…
Cancel
Save