diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-11-16 21:17:29 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-11-16 21:17:29 (GMT) |
| commit | fd54c8a9d81e0a3758b2029ab0d8d962a9038e14 (patch) | |
| tree | e9595f870e2c407cf80244afea723518b2d4a5e0 | |
| parent | fd1f9d484eb12a94ef0005b475a12aa3429cfce5 (diff) | |
| download | tcl-fd54c8a9d81e0a3758b2029ab0d8d962a9038e14.zip tcl-fd54c8a9d81e0a3758b2029ab0d8d962a9038e14.tar.gz tcl-fd54c8a9d81e0a3758b2029ab0d8d962a9038e14.tar.bz2 | |
Burn the bridge back to obsolete [puts] syntax. (Tcl 6?!)
| -rw-r--r-- | generic/tclIOCmd.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index 005713d..2b3e805 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -139,19 +139,6 @@ Tcl_PutsObjCmd( chanObjPtr = objv[2]; string = objv[3]; break; -#if TCL_MAJOR_VERSION < 9 - } else if (strcmp(TclGetString(objv[3]), "nonewline") == 0) { - /* - * The code below provides backwards compatibility with an old - * form of the command that is no longer recommended or - * documented. See also [Bug #3151675]. Will be removed in Tcl 9, - * maybe even earlier. - */ - - chanObjPtr = objv[1]; - string = objv[2]; - break; -#endif } /* Fall through */ default: /* [puts] or |