diff options
| author | dgp <dgp@users.sourceforge.net> | 2005-06-07 02:10:21 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2005-06-07 02:10:21 (GMT) |
| commit | fe3776a56a61c49f27d652f75a0870f9e9c18f89 (patch) | |
| tree | 4114cd141210616532d2e783c9ebe1ff451af172 /generic/tclIO.c | |
| parent | 81f024440701bf5a0f22284bc4f90e3aa47017bf (diff) | |
| download | tcl-fe3776a56a61c49f27d652f75a0870f9e9c18f89.zip tcl-fe3776a56a61c49f27d652f75a0870f9e9c18f89.tar.gz tcl-fe3776a56a61c49f27d652f75a0870f9e9c18f89.tar.bz2 | |
typo
Diffstat (limited to 'generic/tclIO.c')
| -rw-r--r-- | generic/tclIO.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index 06fd55b..cea38a2 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIO.c,v 1.87 2005/06/06 23:45:45 dkf Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.88 2005/06/07 02:10:21 dgp Exp $ */ #include "tclInt.h" @@ -5812,7 +5812,7 @@ Tcl_TruncateChannel(chan, length) return TCL_ERROR; } - if (!(chanPtr->stateptr->flags & TCL_WRITABLE)) { + if (!(chanPtr->state->flags & TCL_WRITABLE)) { /* * We require that the file was opened of writing. Do that * check now so that we only flush if we think we're going to |