Author: pmichaud Date: Sun Jan 4 20:27:15 2009 New Revision: 34953 Modified: branches/rvar/compilers/pct/src/PCT/Node.pir
Log: [pct]: Add .clone method to PCT::Node . Modified: branches/rvar/compilers/pct/src/PCT/Node.pir ============================================================================== --- branches/rvar/compilers/pct/src/PCT/Node.pir (original) +++ branches/rvar/compilers/pct/src/PCT/Node.pir Sun Jan 4 20:27:15 2009 @@ -97,6 +97,18 @@ .end +=item clone() + +Clone the node. + +=cut + +.sub 'clone' :method + $P0 = clone self + .return ($P0) +.end + + =item unshift(child) Add C<child> to the beginning of the invocant's list of children.
