diff options
| author | dkf <dkf@noemail.net> | 2009-01-09 11:21:45 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2009-01-09 11:21:45 (GMT) |
| commit | fa315dba1db389b3ab991fb90927359a8580ca06 (patch) | |
| tree | 4aa51d7f8297e2b7b5f11c316610f06e345c362d /generic/tclConfig.c | |
| parent | d077fb5a5f2ad30c6467ad7cf4c40a2559cf5f64 (diff) | |
| download | tcl-fa315dba1db389b3ab991fb90927359a8580ca06.zip tcl-fa315dba1db389b3ab991fb90927359a8580ca06.tar.gz tcl-fa315dba1db389b3ab991fb90927359a8580ca06.tar.bz2 | |
Style fixes (unfouling whitespace, sorting comments, removing useless casts, etc.)
FossilOrigin-Name: cd3c38f00ada216d7bc93560d3d70012c2918343
Diffstat (limited to 'generic/tclConfig.c')
| -rw-r--r-- | generic/tclConfig.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclConfig.c b/generic/tclConfig.c index b2d3fbb..0bcd0d8 100644 --- a/generic/tclConfig.c +++ b/generic/tclConfig.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclConfig.c,v 1.24 2008/10/16 22:34:18 nijtmans Exp $ + * RCS: @(#) $Id: tclConfig.c,v 1.25 2009/01/09 11:21:45 dkf Exp $ */ #include "tclInt.h" @@ -179,7 +179,7 @@ Tcl_RegisterConfig( if (Tcl_CreateObjCommand(interp, Tcl_DStringValue(&cmdName), QueryConfigObjCmd, cdPtr, QueryConfigDelete) == NULL) { - Tcl_Panic("%s: %s", "Tcl_RegisterConfig", + Tcl_Panic("%s: %s", "Tcl_RegisterConfig", "Unable to create query command for package configuration"); } @@ -233,12 +233,12 @@ QueryConfigObjCmd( pDB = GetConfigDict(interp); if (Tcl_DictObjGet(interp, pDB, pkgName, &pkgDict) != TCL_OK || pkgDict == NULL) { - /* + /* * Maybe a Tcl_Panic is better, because the package data has to be * present. */ - Tcl_SetResult(interp, "package not known", TCL_STATIC); + Tcl_SetResult(interp, "package not known", TCL_STATIC); return TCL_ERROR; } |