[svn:parrot] r39338 - trunk/examples/tcl

[NotFound at svn.parrot.org]

Author: NotFound
Date: Tue Jun  2 16:59:27 2009
New Revision: 39338
URL: https://trac.parrot.org/parrot/changeset/39338

Log:
[cage] kill include TclLibrary.pir usage in example

Modified:
   trunk/examples/tcl/tcltkdemo.pir

Modified: trunk/examples/tcl/tcltkdemo.pir
==============================================================================
--- trunk/examples/tcl/tcltkdemo.pir	Tue Jun  2 16:50:55 2009	(r39337)
+++ trunk/examples/tcl/tcltkdemo.pir	Tue Jun  2 16:59:27 2009	(r39338)
@@ -2,9 +2,8 @@
 # $Id$
 # demonstrate Tcl/Tk GUI using NCI
 
-.include 'runtime/parrot/library/TclLibrary.pir'
-
 .sub try :main
+    load_bytecode 'TclLibrary.pbc'
     .local pmc tcl
     tcl = new 'TclLibrary'
     .local string res