diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-31 08:59:28 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-31 08:59:28 (GMT) |
commit | 91189c426903448dfa31ba4983c5d3035cb351a5 (patch) | |
tree | dc374756a9260acda12b9b8afc397affcb7c3f9c /generic/tclEnsemble.c | |
parent | f5d0aa6e2254e5bc7b53ad639b36ee06453c361a (diff) | |
download | tcl-91189c426903448dfa31ba4983c5d3035cb351a5.zip tcl-91189c426903448dfa31ba4983c5d3035cb351a5.tar.gz tcl-91189c426903448dfa31ba4983c5d3035cb351a5.tar.bz2 |
More code review, e.g. use Tcl_SetObjResult in stead of Tcl_SetResult, preventing a (char *) type case. No functional changes.
Diffstat (limited to 'generic/tclEnsemble.c')
-rw-r--r-- | generic/tclEnsemble.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 2480685..5b8deb6 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -328,7 +328,7 @@ TclNamespaceEnsembleCmd( } continue; case CRT_COMPILE: - if (Tcl_GetBooleanFromObj(interp, objv[1], + if (Tcl_GetBooleanFromObj(interp, objv[1], &ensCompFlag) != TCL_OK) { return TCL_ERROR; }; @@ -358,7 +358,7 @@ TclNamespaceEnsembleCmd( Tcl_SetEnsembleMappingDict(interp, token, mapObj); Tcl_SetEnsembleUnknownHandler(interp, token, unknownObj); Tcl_SetEnsembleParameterList(interp, token, paramObj); - /* + /* * Ensemble should be compiled if it has map (performance purposes) */ if (ensCompFlag > 0 && mapObj != NULL) { |