[svn:parrot] r29837 - trunk/languages/tcl/src/class

[coke@xxxxxxxxxxxx]

Author: coke
Date: Mon Jul 28 21:05:35 2008
New Revision: 29837

Modified:
   trunk/languages/tcl/src/class/tclconst.pir

Log:
[tcl] Have our special constant class inherit from our string PMC.


Modified: trunk/languages/tcl/src/class/tclconst.pir
==============================================================================
--- trunk/languages/tcl/src/class/tclconst.pir  (original)
+++ trunk/languages/tcl/src/class/tclconst.pir  Mon Jul 28 21:05:35 2008
@@ -12,7 +12,7 @@
 =cut
 
 .sub class_init :anon :load
-  $P0 = get_class 'String'
+  $P0 = get_class 'TclString'
   $P1 = subclass $P0, 'TclConst'
 
   $P0 = new 'Hash'
@@ -247,7 +247,7 @@
 
 done:
   # Finally, delegate to our parent's set_string
-  $P0 = getattribute self, ['String'], 'proxy'
+  $P0 = getattribute self, ['TclString'], 'proxy'
   $P0 = value
 .end