PPToken.st
changeset 91 ed96c98bff4a
parent 30 6d6315787d46
child 160 24352e941a6d
--- a/PPToken.st	Sat Dec 01 13:49:51 2012 +0100
+++ b/PPToken.st	Sat Dec 01 15:27:17 2012 +0100
@@ -90,10 +90,15 @@
 !PPToken methodsFor:'private'!
 
 newline
-	"Parser a platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
+        "Parser a platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
 
-	^ (Character lf asParser)
-	/ (Character cr asParser , Character lf asParser optional)
+        Smalltalk isSmalltalkX ifTrue:[
+            ^ (Character lf asParser)
+            / (Character return asParser , Character lf asParser optional)
+        ] ifFalse:[
+            ^ (Character lf asParser)
+            / (Character cr asParser , Character lf asParser optional)
+        ]
 ! !
 
 !PPToken methodsFor:'querying'!
@@ -129,11 +134,11 @@
 !PPToken class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.3 2012-05-04 22:03:13 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.4 2012-12-01 14:27:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.3 2012-05-04 22:03:13 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.4 2012-12-01 14:27:17 cg Exp $'
 !
 
 version_SVN