diff options
author | Steve Bennett <steveb@workware.net.au> | 2017-10-31 08:57:59 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2017-11-04 19:16:03 +1000 |
commit | 79c4a3fb4d20588fc485371128db87971c1e66c0 (patch) | |
tree | 3106fe3f8516a7f66fbe6cf214750443bc7e9a4e /jim-interp.c | |
parent | 57eb43959e993e6166a09e4d883ab0e944f7b4af (diff) | |
download | jimtcl-79c4a3fb4d20588fc485371128db87971c1e66c0.zip jimtcl-79c4a3fb4d20588fc485371128db87971c1e66c0.tar.gz jimtcl-79c4a3fb4d20588fc485371128db87971c1e66c0.tar.bz2 |
interp: command should be created in the global namespace
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'jim-interp.c')
-rw-r--r-- | jim-interp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/jim-interp.c b/jim-interp.c index dd80479..a5da93e 100644 --- a/jim-interp.c +++ b/jim-interp.c @@ -163,7 +163,7 @@ static int JimInterpCommand(Jim_Interp *interp, int argc, Jim_Obj *const *argv) snprintf(buf, sizeof(buf), "interp.handle%ld", Jim_GetId(interp)); Jim_CreateCommand(interp, buf, JimInterpSubCmdProc, child, JimInterpDelProc); - Jim_SetResultString(interp, buf, -1); + Jim_SetResult(interp, Jim_MakeGlobalNamespaceName(interp, Jim_NewStringObj(interp, buf, -1))); return JIM_OK; } |