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 | 80630f4ec9d479d7a28d3379a9e19fe08187f250 (patch) | |
| tree | e9595f870e2c407cf80244afea723518b2d4a5e0 | |
| parent | e63dcc2677b18312bcdc261a91e55ea24e07092a (diff) | |
| download | tcl-80630f4ec9d479d7a28d3379a9e19fe08187f250.zip tcl-80630f4ec9d479d7a28d3379a9e19fe08187f250.tar.gz tcl-80630f4ec9d479d7a28d3379a9e19fe08187f250.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 |