diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-06-14 16:48:46 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-07-07 21:34:34 +1000 |
commit | 2b6aed8f63674d6b17ce06d4df60987ff33c0f55 (patch) | |
tree | 440c72ffe8300b53bd3b7ad9fc40bef64e3eab6b /oo.tcl | |
parent | 9ce718adc1aa2abcd4bf7e2c0d3db6ab534f5e34 (diff) | |
download | jimtcl-2b6aed8f63674d6b17ce06d4df60987ff33c0f55.zip jimtcl-2b6aed8f63674d6b17ce06d4df60987ff33c0f55.tar.gz jimtcl-2b6aed8f63674d6b17ce06d4df60987ff33c0f55.tar.bz2 |
Minor improvements to oo.tcl
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'oo.tcl')
-rw-r--r-- | oo.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -55,10 +55,11 @@ proc class {classname {baseclasses {}} classvars} { if {![uplevel exists instvars]} { return -code error -level 2 "\"[lindex [info level 0] 0]\" method called with no object" } - lassign [info level -1] self + set self [lindex [info level -1] 0] # Note that we can't use 'dict with' here because # the dict isn't updated until the body completes. foreach _ [$self vars] {upvar 1 instvars($_) $_} + unset _ eval $body } } |