--- a/PPLiteralObjectParser.st Fri Oct 03 01:59:10 2014 +0100
+++ b/PPLiteralObjectParser.st Fri Oct 03 02:33:08 2014 +0100
@@ -23,10 +23,10 @@
!PPLiteralObjectParser methodsFor:'parsing'!
-parseOn: aStream
- ^ (aStream atEnd not and: [ literal = aStream uncheckedPeek ])
- ifFalse: [ PPFailure message: message at: aStream position ]
- ifTrue: [ aStream next ]
+parseOn: aPPContext
+ ^ (aPPContext stream atEnd not and: [ literal = aPPContext stream uncheckedPeek ])
+ ifFalse: [ PPFailure message: message context: aPPContext ]
+ ifTrue: [ aPPContext stream next ]
! !
!PPLiteralObjectParser class methodsFor:'documentation'!