diff options
| author | stanton <stanton> | 1999-02-02 22:25:42 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-02-02 22:25:42 (GMT) |
| commit | f4df4aba71f814b2ea589e0ce4a6dddd20221417 (patch) | |
| tree | bbbe67f5c0164ea9ded3dea96830834ba9fc6a9c /generic/tclBasic.c | |
| parent | cd1b42525749d0b3a0a5826ff6db23502b786c91 (diff) | |
| download | tcl-f4df4aba71f814b2ea589e0ce4a6dddd20221417.zip tcl-f4df4aba71f814b2ea589e0ce4a6dddd20221417.tar.gz tcl-f4df4aba71f814b2ea589e0ce4a6dddd20221417.tar.bz2 | |
* generic/tclIOCmd.c:
* generic/tclBasic.c: Objectified the "open" command. [Bug: 1113]
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 760ad21..1d66c80 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.13 1998/09/14 18:39:57 stanton Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.14 1999/02/02 22:25:42 stanton Exp $ */ #include "tclInt.h" @@ -188,7 +188,7 @@ static CmdInfo builtInCmds[] = { (CompileProc *) NULL, 1}, {"glob", Tcl_GlobCmd, (Tcl_ObjCmdProc *) NULL, (CompileProc *) NULL, 0}, - {"open", Tcl_OpenCmd, (Tcl_ObjCmdProc *) NULL, + {"open", (Tcl_CmdProc *) NULL, Tcl_OpenObjCmd, (CompileProc *) NULL, 0}, {"pid", (Tcl_CmdProc *) NULL, Tcl_PidObjCmd, (CompileProc *) NULL, 1}, |