compiler/PPCPlusNode.st
changeset 421 7e08b31e0dae
parent 392 9b297f0d949c
child 422 116d2b2af905
--- 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
 ! !