From 247529b2e2220a8d411a33788f9e7be3828d12a6 Mon Sep 17 00:00:00 2001
From: Joe Mistachkin <joe@mistachkin.com>
Date: Thu, 14 Jan 2016 23:55:45 +0000
Subject: Add the tcl_platform(engine) element, TIP to be written.

---
 generic/tclBasic.c | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 5c5bc64..0bb43cc 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -916,6 +916,13 @@ Tcl_CreateInterp(void)
     TclInitEmbeddedConfigurationInformation(interp);
 
     /*
+     * TIP #XXX: 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.
      */
 
-- 
cgit v0.12