diff options
author | hobbs <hobbs@noemail.net> | 2002-04-12 06:51:49 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2002-04-12 06:51:49 (GMT) |
commit | e0a20c7843bf173b35e2ad3159312e38fbd3470f (patch) | |
tree | cdc76c59812627b3ca1518fce658898c879bd86f /generic | |
parent | 0dd9fd65d3de933d67299741a4316dcdb35ad886 (diff) | |
download | tk-e0a20c7843bf173b35e2ad3159312e38fbd3470f.zip tk-e0a20c7843bf173b35e2ad3159312e38fbd3470f.tar.gz tk-e0a20c7843bf173b35e2ad3159312e38fbd3470f.tar.bz2 |
* generic/tkConsole.c (ConsoleCmd): correct return that should
have just set result code.
FossilOrigin-Name: cf56e1f272167827ee3c96acf691beb0290d0bcb
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tkConsole.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkConsole.c b/generic/tkConsole.c index e51d687..e004155 100644 --- a/generic/tkConsole.c +++ b/generic/tkConsole.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: tkConsole.c,v 1.16 2002/01/15 20:48:29 dgp Exp $ + * RCS: @(#) $Id: tkConsole.c,v 1.17 2002/04/12 06:51:50 hobbs Exp $ */ #include "tk.h" @@ -602,7 +602,7 @@ ConsoleCmd(clientData, interp, argc, argv) } else { Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0], " eval command\"", (char *) NULL); - return TCL_ERROR; + result = TCL_ERROR; } } else { Tcl_AppendResult(interp, "bad option \"", argv[1], |