diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-31 13:48:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-31 13:48:51 (GMT) |
| commit | 9ad31cfcf31c75506cd932dfb2d637d4ff299131 (patch) | |
| tree | fcbb8d9f307cdefac84c5e472f06c087ea3a3971 /generic/tclGet.c | |
| parent | d78db33c23ca9fad833989314d1288dafbfd039e (diff) | |
| download | tcl-9ad31cfcf31c75506cd932dfb2d637d4ff299131.zip tcl-9ad31cfcf31c75506cd932dfb2d637d4ff299131.tar.gz tcl-9ad31cfcf31c75506cd932dfb2d637d4ff299131.tar.bz2 | |
Better errpr-handling
Diffstat (limited to 'generic/tclGet.c')
| -rw-r--r-- | generic/tclGet.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclGet.c b/generic/tclGet.c index 1beac24..27f3235 100644 --- a/generic/tclGet.c +++ b/generic/tclGet.c @@ -134,8 +134,8 @@ Tcl_GetBool( Tcl_Obj obj; int code; - if (((src == NULL) || (*src == '\0')) && (flags & TCL_NULL_OK)) { - return (Tcl_GetBoolFromObj)(NULL, NULL, flags, boolPtr); + if ((src == NULL) || (*src == '\0')) { + return (Tcl_GetBoolFromObj)(interp, NULL, flags, boolPtr); } obj.refCount = 1; obj.bytes = (char *) src; |