Author: mdiep
Date: Wed Apr 19 13:27:50 2006
New Revision: 12381

Modified:
   trunk/languages/tcl/runtime/builtin/global.pir

Log:
tcl: Fix [global]. All tests pass.

Modified: trunk/languages/tcl/runtime/builtin/global.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/global.pir      (original)
+++ trunk/languages/tcl/runtime/builtin/global.pir      Wed Apr 19 13:27:50 2006
@@ -28,7 +28,7 @@
   sigil_varname = "$" . varname
 
   push_eh next
-    $P1 = find_global "Tcl", sigil_varname
+    $P1 = find_global sigil_varname
   clear_eh
 
   .local pmc store_lex_pdd20

Reply via email to