diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-01-29 14:21:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-01-29 14:21:14 (GMT) |
| commit | 413c14a38212f4a842d28cf9aaa9d82c9c7f71bf (patch) | |
| tree | 49040b25a1de7c5786756a2115cab90f4aca4b24 /generic | |
| parent | 628d65bf41110410632aa9f7e3e4a42c67603f15 (diff) | |
| parent | 4dfcbbea544e672812bc7d4de3b7571e14cccc22 (diff) | |
| download | tcl-413c14a38212f4a842d28cf9aaa9d82c9c7f71bf.zip tcl-413c14a38212f4a842d28cf9aaa9d82c9c7f71bf.tar.gz tcl-413c14a38212f4a842d28cf9aaa9d82c9c7f71bf.tar.bz2 | |
merge 8.5
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclBasic.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 89d6b8f..44cf543 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -790,6 +790,13 @@ Tcl_CreateInterp(void) TclInitEmbeddedConfigurationInformation(interp); /* + * TIP #440: Declare the name of the script engine to be "Tcl". + */ + + Tcl_SetVar2(interp, "tcl_platform", "engine", "Tcl", + TCL_GLOBAL_ONLY); + + /* * Compute the byte order of this machine. */ |