--- a/PPToken.st Fri Oct 03 01:59:10 2014 +0100
+++ b/PPToken.st Fri Oct 03 02:33:08 2014 +0100
@@ -11,14 +11,9 @@
!PPToken class methodsFor:'initialization'!
initialize
- "Platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
-
- |cr|
+ "Platform independent newline sequence. LF: Unix, CR+LF: Windows, and CR: Apple."
- cr := Smalltalk isSmalltalkX
- ifTrue:[Character return]
- ifFalse:[Character cr].
- NewLineParser := (Character lf asParser) / (cr asParser , Character lf asParser optional)
+ NewLineParser := (Character lf asParser) / (Character cr asParser , Character lf asParser optional)
! !
!PPToken class methodsFor:'instance creation'!