diff options
| author | Steve Bennett <steveb@workware.net.au> | 2014-11-16 14:23:54 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2014-11-17 12:22:48 +1000 |
| commit | 77329fbe453beddd11607fa437ae83940435e1a4 (patch) | |
| tree | 87f660f38efa57c94fe1f0fa8d714c2288e266da /nshelper.tcl | |
| parent | e60018c2797b6edb2d05336178c88e429ba62f73 (diff) | |
| download | jimtcl-77329fbe453beddd11607fa437ae83940435e1a4.zip jimtcl-77329fbe453beddd11607fa437ae83940435e1a4.tar.gz jimtcl-77329fbe453beddd11607fa437ae83940435e1a4.tar.bz2 | |
Implement string cat (TIP #429)
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'nshelper.tcl')
| -rw-r--r-- | nshelper.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/nshelper.tcl b/nshelper.tcl index a31b7c0..9e617b7 100644 --- a/nshelper.tcl +++ b/nshelper.tcl @@ -130,7 +130,7 @@ proc {namespace info} {cmd {pattern *}} { } } if {$global} { - set result [lmap p $result { set p $prefix$p }] + set result [lmap p $result { string cat $prefix $p }] } return $result } |