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

[coke@xxxxxxxxxxxx]

Author: coke
Date: Tue Jul 29 05:45:35 2008
New Revision: 29842

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

Log:
[tcl] revert patch, use 'String' as our object's base class once more to avoid 
problems. Leave a note.



Modified: trunk/languages/tcl/src/class/tclconst.pir
==============================================================================
--- trunk/languages/tcl/src/class/tclconst.pir  (original)
+++ trunk/languages/tcl/src/class/tclconst.pir  Tue Jul 29 05:45:35 2008
@@ -12,7 +12,9 @@
 =cut
 
 .sub class_init :anon :load
-  $P0 = get_class 'TclString'
+  # While it is tempting to inherit directly from TclString, if we do that
+  # we lose the predefined MMD is_equal that works with the existing structure.
+  $P0 = get_class 'String'
   $P1 = subclass $P0, 'TclConst'
 
   $P0 = new 'Hash'
@@ -247,7 +249,7 @@
 
 done:
   # Finally, delegate to our parent's set_string
-  $P0 = getattribute self, ['TclString'], 'proxy'
+  $P0 = getattribute self, ['String'], 'proxy'
   $P0 = value
 .end