--- a/compiler/PPCPlusNode.st	Tue Apr 21 17:20:11 2015 +0100
+++ b/compiler/PPCPlusNode.st	Thu Apr 30 23:43:14 2015 +0200
@@ -12,32 +12,6 @@
 
 !PPCPlusNode methodsFor:'as yet unclassified'!
 
-compileWith: compiler effect: effect id: id
-		
-	compiler startMethod: id.
-	compiler addVariable: 'retval'.
-	compiler addVariable: 'element'.
-		
-	compiler add: 'retval := OrderedCollection new.'.
-	compiler add: 'element := '.
-	compiler callOnLine: (child compileWith: compiler).
-	compiler add: 'error ifTrue: [ ^ self error: ''at least one occurence expected'' ].'.
-	compiler add: 'retval add: element.'.
-	
-	compiler add: 'element := '.
-	compiler callOnLine: (child compileWith: compiler).
-	compiler add: '[ error ] whileFalse: ['.
-	compiler indent.
-	compiler add: 'retval add: element.'.
-	compiler add: 'element := '.
-	compiler callOnLine: (child compileWith: compiler).
-	compiler dedent.
-	compiler add: '].'.
-	compiler add: 'self clearError.'.
-	compiler add: '^ retval asArray'.
- ^ compiler stopMethod.
-!
-
 followSets: aFollowDictionary firstSets: aFirstDictionary into: aSet suchThat: aBlock
 	| first |
 	super followSets: aFollowDictionary firstSets:  aFirstDictionary into: aSet suchThat: aBlock.
@@ -50,6 +24,12 @@
 	^ #plus
 ! !
 
+!PPCPlusNode methodsFor:'visiting'!
+
+accept: visitor
+	^ visitor visitPlusNode: self
+! !
+
 !PPCPlusNode class methodsFor:'documentation'!
 
 version_HG