diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-10-23 12:09:48 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-10-23 12:09:48 (GMT) |
| commit | cdb25d894650feb93162033ae30f0e158b6efb1e (patch) | |
| tree | 1c574e2bd02f623e6e7c9f9b95aa0452951fc5f0 /generic/tclIO.c | |
| parent | df974e71f99feff44f12a02e66281948465d32ec (diff) | |
| download | tcl-cdb25d894650feb93162033ae30f0e158b6efb1e.zip tcl-cdb25d894650feb93162033ae30f0e158b6efb1e.tar.gz tcl-cdb25d894650feb93162033ae30f0e158b6efb1e.tar.bz2 | |
Fix [b58e6897034fc5292c9d36ba8099d9a835c98172|b58e689703]: Return value of 'Tcl_Flush'
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 64501fd..e74624f 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -6660,7 +6660,7 @@ Tcl_Flush( chanPtr = statePtr->topChanPtr; if (CheckChannelErrors(statePtr, TCL_WRITABLE) != 0) { - return -1; + return TCL_ERROR; } result = FlushChannel(NULL, chanPtr, 0); |