equal
deleted
inserted
replaced
9 category:'PetitCompiler-Nodes' |
9 category:'PetitCompiler-Nodes' |
10 ! |
10 ! |
11 |
11 |
12 !PPCStarMessagePredicateNode methodsFor:'accessing'! |
12 !PPCStarMessagePredicateNode methodsFor:'accessing'! |
13 |
13 |
|
14 defaultName |
|
15 ^ #starPredicate |
|
16 ! |
|
17 |
14 firstCharSet |
18 firstCharSet |
15 ^ PPCharSetPredicate on: [:char | char perform: message ] |
19 ^ PPCharSetPredicate on: [:char | char perform: message ] |
16 ! |
20 ! |
17 |
21 |
18 message |
22 message |
21 ! |
25 ! |
22 |
26 |
23 message: anObject |
27 message: anObject |
24 |
28 |
25 message := anObject |
29 message := anObject |
26 ! |
|
27 |
|
28 prefix |
|
29 ^ #starPredicate |
|
30 ! ! |
30 ! ! |
31 |
31 |
32 !PPCStarMessagePredicateNode methodsFor:'comparing'! |
32 !PPCStarMessagePredicateNode methodsFor:'comparing'! |
33 |
33 |
34 = anotherNode |
34 = anotherNode |