PPStream.st
changeset 380 8fe3cb4e607f
parent 377 6112a403a52d
child 388 74c9c229033b
--- 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'!