--- 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 $'
! !