diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-04 10:22:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-04 10:22:40 (GMT) |
| commit | ca334b9492d174b6c1282acbc8282921d3b1f789 (patch) | |
| tree | b1161174f5c94dd97bb8e575b94a2328b5ab7c89 /tools | |
| parent | f3f6f659d88f5a8e75a4494fb93cf6ba50df7f18 (diff) | |
| parent | d8da2295058ff72e90e1025dc7cd90a67302df1c (diff) | |
| download | tcl-ca334b9492d174b6c1282acbc8282921d3b1f789.zip tcl-ca334b9492d174b6c1282acbc8282921d3b1f789.tar.gz tcl-ca334b9492d174b6c1282acbc8282921d3b1f789.tar.bz2 | |
Merge 8.5. Add unused stub table entries
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/genStubs.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 47b8ad4..4f4acbb 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -1214,7 +1214,7 @@ proc genStubs::init {} { # Results: # Returns any values that were not assigned to variables. -if {[string length [namespace which lassign]] == 0} { +if {[namespace which lassign] ne ""} { proc lassign {valueList args} { if {[llength $args] == 0} { error "wrong # args: should be \"lassign list varName ?varName ...?\"" |