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 | 4a9ae53836f768d0b615e5f98cedfb9dd5fbac7f (patch) | |
| tree | dc374756a9260acda12b9b8afc397affcb7c3f9c /generic/tclEnsemble.c | |
| parent | 60c071ed625b30818a7151b4e77272f8fe55edb3 (diff) | |
| download | tcl-4a9ae53836f768d0b615e5f98cedfb9dd5fbac7f.zip tcl-4a9ae53836f768d0b615e5f98cedfb9dd5fbac7f.tar.gz tcl-4a9ae53836f768d0b615e5f98cedfb9dd5fbac7f.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) { |