--- 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