--- a/compiler/PPCPlusNode.st Wed Nov 19 10:52:37 2014 +0000
+++ b/compiler/PPCPlusNode.st Mon Nov 24 00:09:23 2014 +0000
@@ -35,6 +35,14 @@
^ compiler stopMethod.
!
+followSets: aFollowDictionary firstSets: aFirstDictionary into: aSet suchThat: aBlock
+ | first |
+ super followSets: aFollowDictionary firstSets: aFirstDictionary into: aSet suchThat: aBlock.
+
+ first := aFirstDictionary at: self.
+ (aFollowDictionary at: child) addAll: (first reject: [:each | each isNullable])
+!
+
prefix
^ #plus
! !