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 | 19bfe564de0184d2136d878e1d56593cbd5fce3a (patch) | |
| tree | b1161174f5c94dd97bb8e575b94a2328b5ab7c89 /tools | |
| parent | 5a2a021cd42ced6d513d266c61eb3713ca48f2c0 (diff) | |
| parent | 3f89004e3770f9777b2c028f268d0e8cda84172c (diff) | |
| download | tcl-19bfe564de0184d2136d878e1d56593cbd5fce3a.zip tcl-19bfe564de0184d2136d878e1d56593cbd5fce3a.tar.gz tcl-19bfe564de0184d2136d878e1d56593cbd5fce3a.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 ...?\"" |