Correction of problem of tcl output in Emacsresources

diff --git a/src/WOKsite/FILES b/src/WOKsite/FILES
index 87fb09ee45613dcd864714b82f21d9cf7323aa8c..512252df68c21d986170a1f63571709d5c30da5b 100755 (executable)
--- a/src/WOKsite/FILES
+++ b/src/WOKsite/FILES
@@ -7,5 +7,7 @@ srcinc:::INSTALL
 srcinc:::wok.csh
 srcinc:::wok.bat
 srcinc:::wokinit.bat
-srcinc:::cmd-input.tcl
+srcinc:::interp.tcl
 srcinc:::wokinit.csh
+srcinc:::.tclshrc
+srcinc:::tclshrc.tcl

diff --git a/src/WOKsite/tclshrc_Wok b/src/WOKsite/tclshrc_Wok
index b522c7b92c0192f02f6707c816d8d935d16d51cf..5f1cfb3da6ad63934bf96ef811c884d3b16d1f06 100755 (executable)
--- a/src/WOKsite/tclshrc_Wok
+++ b/src/WOKsite/tclshrc_Wok
@@ -167,8 +167,5 @@ set env(WOK_SESSIONID)  $env(HOME)/.wok
 set tcl_prompt1 {if {[info commands wokcd] != ""}  then \
        {puts -nonewline stdout "[wokcd]> "} else \
        {puts -nonewline stdout "tclsh> "}}
-if { "$tcl_platform(platform)" == "windows" } {
-   source $env(WOKHOME)/site/cmd-input.tcl
-}
 cd $env(WOK_ROOTADMDIR)
 wokclose -a