diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-09-28 07:54:54 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 11:02:56 +1000 |
| commit | d8b522be26d0424a00613cd832dfb1d05a24b0fa (patch) | |
| tree | 4611a374684d9343981c5b5eb3610698f9ca7792 /regtest.tcl | |
| parent | 0da01d15d29b6a97e2ec31591a292a0084c6fc07 (diff) | |
| download | jimtcl-d8b522be26d0424a00613cd832dfb1d05a24b0fa.zip jimtcl-d8b522be26d0424a00613cd832dfb1d05a24b0fa.tar.gz jimtcl-d8b522be26d0424a00613cd832dfb1d05a24b0fa.tar.bz2 | |
Fix bug when renaming the current proc
Reference counting issues
Also don't allow rename to an existing command (Tcl compatible)
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
| -rw-r--r-- | regtest.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index 8f541ba..08e6339 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -99,6 +99,11 @@ proc a {msg stack} { catch {fail} msg opts catch {a $msg $opts(-errorinfo)} +# REGTEST 16 +# 24 Feb 2010 - rename the current proc +# Leaves unfreed objects on the stack +proc a {} { rename a newa} +a # TAKE THE FOLLOWING puts AS LAST LINE |