diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2024-04-11 08:55:01 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2024-04-11 08:55:01 (GMT) |
commit | e8c7336785201066d19e1cdf7006c02fcbd3b468 (patch) | |
tree | 18a2eeacb2a6791b3c6be8a31efb2766fd328ec8 /generic/tclCmdIL.c | |
parent | 8e691a380904c975bccf28f5ab1f19be9a51befb (diff) | |
download | tcl-e8c7336785201066d19e1cdf7006c02fcbd3b468.zip tcl-e8c7336785201066d19e1cdf7006c02fcbd3b468.tar.gz tcl-e8c7336785201066d19e1cdf7006c02fcbd3b468.tar.bz2 |
Use Tcl_NewBooleanObj for booleans; we should say what we mean
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r-- | generic/tclCmdIL.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index f5065f3..a7437af 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -989,7 +989,7 @@ InfoDefaultCmd( if (valueObjPtr == NULL) { return TCL_ERROR; } - Tcl_SetObjResult(interp, Tcl_NewWideIntObj(1)); + Tcl_SetObjResult(interp, Tcl_NewBooleanObj(1)); } else { Tcl_Obj *nullObjPtr; TclNewObj(nullObjPtr); @@ -999,7 +999,7 @@ InfoDefaultCmd( if (valueObjPtr == NULL) { return TCL_ERROR; } - Tcl_SetObjResult(interp, Tcl_NewWideIntObj(0)); + Tcl_SetObjResult(interp, Tcl_NewBooleanObj(0)); } return TCL_OK; } |