diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-04-18 18:42:54 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-04-18 18:42:54 (GMT) |
| commit | 88574b7bc539d00b6477f8d9bbe7f25158b57662 (patch) | |
| tree | 4399ca38b73edfafc667956c4bb05e731d0dc862 /generic/tclHistory.c | |
| parent | e5ced1c96d6213766cd6263eddcab12ba1a916a9 (diff) | |
| download | tcl-88574b7bc539d00b6477f8d9bbe7f25158b57662.zip tcl-88574b7bc539d00b6477f8d9bbe7f25158b57662.tar.gz tcl-88574b7bc539d00b6477f8d9bbe7f25158b57662.tar.bz2 | |
Experimental branch where the interp->result field and related are removed
and all simplifications that makes possible are done. Seems this can at best
be a Tcl 9 reform.
Diffstat (limited to 'generic/tclHistory.c')
| -rw-r--r-- | generic/tclHistory.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclHistory.c b/generic/tclHistory.c index b10d423..5448365 100644 --- a/generic/tclHistory.c +++ b/generic/tclHistory.c @@ -74,12 +74,14 @@ Tcl_RecordAndEval( Tcl_IncrRefCount(cmdPtr); result = Tcl_RecordAndEvalObj(interp, cmdPtr, flags); +#if 0 /* * Move the interpreter's object result to the string result, then * reset the object result. */ (void) Tcl_GetStringResult(interp); +#endif /* * Discard the Tcl object created to hold the command. |