aboutsummaryrefslogtreecommitdiff
path: root/oo.tcl
diff options
context:
space:
mode:
authorTheMarkitecht <Mark@TheMarkitecht.com>2020-02-04 20:14:42 -0600
committerSteve Bennett <steveb@workware.net.au>2020-02-06 08:16:45 +1000
commit7a101ca903c44be10a692e7264b3160115edf7cf (patch)
tree467d68c40664eb4f2e1ead21b4ca5723a198ebe4 /oo.tcl
parentb9b2408283b5f7a9dd8edda8e7e946d8ec882879 (diff)
downloadjimtcl-7a101ca903c44be10a692e7264b3160115edf7cf.zip
jimtcl-7a101ca903c44be10a692e7264b3160115edf7cf.tar.gz
jimtcl-7a101ca903c44be10a692e7264b3160115edf7cf.tar.bz2
Fix #148 - oo errors with no class variables.
https://github.com/msteveb/jimtcl/issues/148
Diffstat (limited to 'oo.tcl')
-rw-r--r--oo.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/oo.tcl b/oo.tcl
index b6ad4a9..c31c481 100644
--- a/oo.tcl
+++ b/oo.tcl
@@ -69,7 +69,7 @@ proc class {classname {baseclasses {}} classvars} {
# 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 __
+ unset -nocomplain __
eval $__body
}
}