equal
deleted
inserted
replaced
33 compiler add: 'self clearError.'. |
33 compiler add: 'self clearError.'. |
34 compiler add: '^ retval asArray'. |
34 compiler add: '^ retval asArray'. |
35 ^ compiler stopMethod. |
35 ^ compiler stopMethod. |
36 ! |
36 ! |
37 |
37 |
|
38 followSets: aFollowDictionary firstSets: aFirstDictionary into: aSet suchThat: aBlock |
|
39 | first | |
|
40 super followSets: aFollowDictionary firstSets: aFirstDictionary into: aSet suchThat: aBlock. |
|
41 |
|
42 first := aFirstDictionary at: self. |
|
43 (aFollowDictionary at: child) addAll: (first reject: [:each | each isNullable]) |
|
44 ! |
|
45 |
38 prefix |
46 prefix |
39 ^ #plus |
47 ^ #plus |
40 ! ! |
48 ! ! |
41 |
49 |