equal
deleted
inserted
replaced
21 ^ (PPPredicateObjectParser expect: literal message: message) negate |
21 ^ (PPPredicateObjectParser expect: literal message: message) negate |
22 ! ! |
22 ! ! |
23 |
23 |
24 !PPLiteralObjectParser methodsFor:'parsing'! |
24 !PPLiteralObjectParser methodsFor:'parsing'! |
25 |
25 |
26 parseOn: aStream |
26 parseOn: aPPContext |
27 ^ (aStream atEnd not and: [ literal = aStream uncheckedPeek ]) |
27 ^ (aPPContext stream atEnd not and: [ literal = aPPContext stream uncheckedPeek ]) |
28 ifFalse: [ PPFailure message: message at: aStream position ] |
28 ifFalse: [ PPFailure message: message context: aPPContext ] |
29 ifTrue: [ aStream next ] |
29 ifTrue: [ aPPContext stream next ] |
30 ! ! |
30 ! ! |
31 |
31 |
32 !PPLiteralObjectParser class methodsFor:'documentation'! |
32 !PPLiteralObjectParser class methodsFor:'documentation'! |
33 |
33 |
34 version |
34 version |