# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1393963806 -3600
# Node ID 2b307d16da021a6727f7f9a5775a526b56c7be2d
# Parent  734a6ef2049e8046046d2c8b075179945aca9005
class: PPToken
changed: #newline

diff -r 734a6ef2049e -r 2b307d16da02 PPToken.st
--- a/PPToken.st	Tue Mar 04 21:09:46 2014 +0100
+++ b/PPToken.st	Tue Mar 04 21:10:06 2014 +0100
@@ -132,14 +132,13 @@
 
 newline
         "Parser a platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
+        |cr|
 
-        Smalltalk isSmalltalkX ifTrue:[
-            ^ (Character lf asParser)
-            / (Character return asParser , Character lf asParser optional)
-        ] ifFalse:[
-            ^ (Character lf asParser)
-            / (Character cr asParser , Character lf asParser optional)
-        ]
+        cr := Smalltalk isSmalltalkX 
+                ifTrue:[Character return] 
+                ifFalse:[Character cr].
+        ^ (Character lf asParser)
+        / (cr asParser , Character lf asParser optional)
 ! !
 
 !PPToken methodsFor:'querying'!
@@ -175,15 +174,15 @@
 !PPToken class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.5 2014-03-04 14:32:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.6 2014-03-04 20:10:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.5 2014-03-04 14:32:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.6 2014-03-04 20:10:06 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: PPToken.st,v 1.5 2014-03-04 14:32:08 cg Exp $'
+    ^ '$Id: PPToken.st,v 1.6 2014-03-04 20:10:06 cg Exp $'
 ! !