--- a/PPOptionalParser.st Tue Mar 04 15:33:03 2014 +0100
+++ b/PPOptionalParser.st Tue Mar 04 15:33:10 2014 +0100
@@ -8,16 +8,23 @@
!
+!PPOptionalParser methodsFor:'*petitanalyzer-testing'!
+
+isNullable
+ ^ true
+! !
+
!PPOptionalParser methodsFor:'parsing'!
parseOn: aStream
| element |
element := parser parseOn: aStream.
- ^ element isPetitFailure ifFalse: [ ^ element ]
+ ^ element isPetitFailure ifFalse: [ element ]
! !
!PPOptionalParser class methodsFor:'documentation'!
version_SVN
- ^ '§Id: PPOptionalParser.st 4 2010-12-18 17:02:23Z kursjan §'
+ ^ '$Id: PPOptionalParser.st,v 1.4 2014-03-04 14:33:10 cg Exp $'
! !
+