--- a/PPPredicateObjectParser.st Sat Dec 01 15:29:07 2012 +0100
+++ b/PPPredicateObjectParser.st Sat Dec 01 15:29:54 2012 +0100
@@ -37,7 +37,10 @@
!
cr
- ^ self char: Character cr message: 'carriage return expected'
+ Smalltalk isSmalltalkX ifTrue:[
+ ^ self char: Character return message: 'carriage return expected'
+ ].
+ ^ self char: Character cr message: 'carriage return expected'
!
digit
@@ -66,7 +69,10 @@
!
newline
- ^ self chars: (String with: Character cr with: Character lf) message: 'newline expected'
+ Smalltalk isSmalltalkX ifTrue:[
+ ^ self chars: (String with: Character return with: Character lf) message: 'newline expected'
+ ].
+ ^ self chars: (String with: Character cr with: Character lf) message: 'newline expected'
!
punctuation
@@ -155,11 +161,11 @@
!PPPredicateObjectParser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateObjectParser.st,v 1.3 2012-05-04 22:05:48 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateObjectParser.st,v 1.4 2012-12-01 14:29:54 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateObjectParser.st,v 1.3 2012-05-04 22:05:48 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateObjectParser.st,v 1.4 2012-12-01 14:29:54 cg Exp $'
!
version_SVN