1 "{ Package: 'stx:goodies/petitparser/compiler' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCRewritingVisitor subclass:#PPCCopyVisitor

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Visitors'

    10 !

    11 

    12 !PPCCopyVisitor methodsFor:'as yet unclassified'!

    13 

    14 visitNode: node

    15 	| newNode |

    16 	self change.

    17 	newNode := node copy.

    18 	^ super visitNode: newNode.

    19 ! !

    20