Author: coke
Date: Mon Jul  4 21:46:57 2005
New Revision: 8510

Modified:
   trunk/languages/tcl/lib/interpret.imc
Log:
fix wrong label name.



Modified: trunk/languages/tcl/lib/interpret.imc
==============================================================================
--- trunk/languages/tcl/lib/interpret.imc       (original)
+++ trunk/languages/tcl/lib/interpret.imc       Mon Jul  4 21:46:57 2005
@@ -75,7 +75,7 @@ loop_done: 
 
 no_command:
   $P1 = find_global "Tcl", "tcl_interactive"
-  unless $P1 goto no_command_run_interactive
+  unless $P1 goto no_command_non_interactive
 
   # XXX Should probably make sure this wasn't redefined on us.
   my_cmd = find_global "Tcl", "unknown"

Reply via email to