diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-04 10:46:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-03-04 10:46:07 (GMT) |
| commit | 6f77d31f1bacd7f1f6fefce74af42b5101402b3a (patch) | |
| tree | f4a624db02046117713a194c8536fa8120637df8 /tools | |
| parent | e50a73c706a2531b02798ffbc55f8c7299063188 (diff) | |
| parent | 063e0061117b2034334ecc544f382dd39ad52fc7 (diff) | |
| download | tcl-6f77d31f1bacd7f1f6fefce74af42b5101402b3a.zip tcl-6f77d31f1bacd7f1f6fefce74af42b5101402b3a.tar.gz tcl-6f77d31f1bacd7f1f6fefce74af42b5101402b3a.tar.bz2 | |
Merge 8.7
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 ...?\"" |