Author: coke Date: Wed Apr 20 08:14:00 2005 New Revision: 7896 Modified: trunk/languages/tcl/lib/tclword.imc Log: Per Leo, use "self"
Modified: trunk/languages/tcl/lib/tclword.imc ============================================================================== --- trunk/languages/tcl/lib/tclword.imc (original) +++ trunk/languages/tcl/lib/tclword.imc Wed Apr 20 08:14:00 2005 @@ -62,7 +62,7 @@ =cut -.sub __init +.sub __init method .local pmc emptyArray .local pmc constant .local int TclList @@ -70,13 +70,10 @@ TclList = find_type "TclList" emptyArray = new TclList - .local pmc me - me = interpinfo 16 #INTERPINFO_CURRENT_OBJECT - - setattribute me, "TclWord\x00chunks", emptyArray + setattribute self, "TclWord\x00chunks", emptyArray constant = new Integer constant = 1 - setattribute me, "TclWord\x00constant", constant + setattribute self, "TclWord\x00constant", constant .end =head2 concat_words
