diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-09-26 12:32:56 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-09-26 12:32:56 (GMT) |
| commit | c4443b35bd88ccbf03b22e40b34ae9cffcc316c7 (patch) | |
| tree | 6e1740b9ce4d8950a200d845c166866591f779cd /generic/tclMain.c | |
| parent | 2db92e007272e3ca545b69fd3df8f813e3d0f700 (diff) | |
| parent | a97aca94f6465d9fee62886fe4daa44aac61d09e (diff) | |
| download | tcl-c4443b35bd88ccbf03b22e40b34ae9cffcc316c7.zip tcl-c4443b35bd88ccbf03b22e40b34ae9cffcc316c7.tar.gz tcl-c4443b35bd88ccbf03b22e40b34ae9cffcc316c7.tar.bz2 | |
update documentation
Diffstat (limited to 'generic/tclMain.c')
| -rw-r--r-- | generic/tclMain.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index 14139ec..f445383 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -334,14 +334,14 @@ Tcl_MainEx( */ if ((argc > 3) && (0 == _tcscmp(TEXT("-encoding"), argv[1])) - && (TEXT('-') != argv[3][0])) { + && ('-' != argv[3][0])) { Tcl_Obj *value = NewNativeObj(argv[2], -1); Tcl_SetStartupScript(NewNativeObj(argv[3], -1), Tcl_GetString(value)); Tcl_DecrRefCount(value); argc -= 3; argv += 3; - } else if ((argc > 1) && (TEXT('-') != argv[1][0])) { + } else if ((argc > 1) && ('-' != argv[1][0])) { Tcl_SetStartupScript(NewNativeObj(argv[1], -1), NULL); argc--; argv++; |