diff options
| author | hobbs <hobbs> | 2002-04-12 06:51:50 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-04-12 06:51:50 (GMT) |
| commit | e01ee331cbe9091de74884c6eda3b0dc88aae69d (patch) | |
| tree | cdc76c59812627b3ca1518fce658898c879bd86f /generic/tkConsole.c | |
| parent | a27b8dbd5494a44367f1e1294091dece299c46bb (diff) | |
| download | tk-e01ee331cbe9091de74884c6eda3b0dc88aae69d.zip tk-e01ee331cbe9091de74884c6eda3b0dc88aae69d.tar.gz tk-e01ee331cbe9091de74884c6eda3b0dc88aae69d.tar.bz2 | |
* generic/tkConsole.c (ConsoleCmd): correct return that should
have just set result code.
Diffstat (limited to 'generic/tkConsole.c')
| -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], |