--- a/PPStream.st Fri Oct 03 03:11:33 2014 +0100
+++ b/PPStream.st Sun Oct 05 00:05:20 2014 +0100
@@ -64,17 +64,21 @@
!PPStream methodsFor:'queries'!
insideCRLF
- (position < 1) ifTrue: [ ^ false ].
-
- ^ (self peek = Character lf) and: [ self peekBack = Character cr ]
+ (position < 1) ifTrue: [ ^ false ].
+
+ ^ (self peek = (Character codePoint: 10)) and: [ self peekBack = (Character codePoint: 13) ]
+
+ "Modified: / 03-10-2014 / 23:52:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
isStartOfLine
- (position = 0) ifTrue: [ ^ true ].
+ (position = 0) ifTrue: [ ^ true ].
- self insideCRLF ifTrue: [ ^ false ].
-
- ^ (self peekBack = Character cr) or: [ self peekBack = Character lf].
+ self insideCRLF ifTrue: [ ^ false ].
+
+ ^ (self peekBack = (Character codePoint: 13)) or: [ self peekBack = (Character codePoint: 10)].
+
+ "Modified: / 03-10-2014 / 23:52:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!PPStream class methodsFor:'documentation'!