|
|
@ -9444,7 +9444,7 @@ tcl::namespace::eval punk::args::lib { |
|
|
|
proc string_is_dict {args} { |
|
|
|
proc string_is_dict {args} { |
|
|
|
#ignore opts |
|
|
|
#ignore opts |
|
|
|
set str [lindex $args end] |
|
|
|
set str [lindex $args end] |
|
|
|
if {[catch {[llength $str] len}]} { |
|
|
|
if {[catch {llength $str} len]} { |
|
|
|
return 0 |
|
|
|
return 0 |
|
|
|
} |
|
|
|
} |
|
|
|
if {$len % 2 == 0} { |
|
|
|
if {$len % 2 == 0} { |
|
|
|