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
