diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-12-11 07:45:23 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-12-12 13:44:43 +1000 |
commit | 7cff4d617b4d89c73a49d5b57f851c2a74145b03 (patch) | |
tree | 067c3044586b73776bd76a44dd9fec10d156de4e /jim-namespace.c | |
parent | a10d4bae942ac9e56ebc210f76f29b99dc1839e8 (diff) | |
download | jimtcl-7cff4d617b4d89c73a49d5b57f851c2a74145b03.zip jimtcl-7cff4d617b4d89c73a49d5b57f851c2a74145b03.tar.gz jimtcl-7cff4d617b4d89c73a49d5b57f851c2a74145b03.tar.bz2 |
Add support for [apply]
apply has the advantage of not disturbing the proc epoch
for short lived commands
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim-namespace.c')
-rw-r--r-- | jim-namespace.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/jim-namespace.c b/jim-namespace.c index 9b606c7..3413705 100644 --- a/jim-namespace.c +++ b/jim-namespace.c @@ -96,11 +96,13 @@ int Jim_CreateNamespaceVariable(Jim_Interp *interp, Jim_Obj *varNameObj, Jim_Obj { int rc; Jim_IncrRefCount(varNameObj); + Jim_IncrRefCount(targetNameObj); /* push non-namespace vars if in namespace eval? */ rc = Jim_SetVariableLink(interp, varNameObj, targetNameObj, interp->topFramePtr); Jim_DecrRefCount(interp, varNameObj); + Jim_DecrRefCount(interp, targetNameObj); return rc; } |