--- a/extensions.st	Mon Sep 12 19:47:59 2011 +0200
+++ b/extensions.st	Mon Sep 12 19:48:53 2011 +0200
@@ -1,17 +1,17 @@
-"{ Package: 'squeak:petitparser' }"
-
-!
+"{ Package: 'squeak:petitparser' }"!
 
 !Block methodsFor:'*petitparser-core-converting'!
 
 asParser
 	^ PPPluggableParser on: self
 ! !
+
 !BlockContext methodsFor:'*petitparser-core-converting'!
 
 asParser
 	^ PPPluggableParser on: self
 ! !
+
 !Character methodsFor:'arithmetic'!
 
 - aMagnitude
@@ -35,11 +35,13 @@
     "Modified: / 27-06-1996 / 12:35:34 / cg"
     "Modified: / 19-12-2010 / 18:36:56 / Jan Kurs <kurs.jan@post.cz>"
 ! !
+
 !Character methodsFor:'*petitparser-converting'!
 
 asParser
 	^ PPLiteralObjectParser on: self
 ! !
+
 !Character methodsFor:'arithmetic'!
 
 ppMinus: aCharacter
@@ -49,21 +51,25 @@
 
     "Created: / 19-12-2010 / 18:13:19 / Jan Kurs <kurs.jan@post.cz>"
 ! !
+
 !Object methodsFor:'*petitparser-core-converting'!
 
 asParser
 	^ PPPredicateObjectParser expect: self
 ! !
+
 !Object methodsFor:'*petitparser-core-testing'!
 
 isPetitFailure
 	^ false
 ! !
+
 !Object methodsFor:'*petitparser-core-testing'!
 
 isPetitParser
 	^ false
 ! !
+
 !PositionableStream methodsFor:'*petitparser-core-converting'!
 
 asPetitStream
@@ -83,36 +89,43 @@
 
     "Modified: / 18-12-2010 / 17:38:01 / Jan Kurs <kurs.jan@post.cz>"
 ! !
+
 !SequenceableCollection methodsFor:'*petitparser-core-converting'!
 
 asParser
 	^ PPSequenceParser withAll: (self collect: [ :each | each asParser ])
 ! !
+
 !SequenceableCollection methodsFor:'*petitparser-core-converting'!
 
 asPetitStream
 	^ PPStream on: self
 ! !
+
 !Set methodsFor:'*petitparser-core-converting'!
 
 asParser
 	^ PPChoiceParser withAll: (self collect: [ :each | each asParser ])
 ! !
+
 !Stream methodsFor:'*petitparser-core-converting'!
 
 asPetitStream
 	^ self contents asPetitStream
 ! !
+
 !String methodsFor:'*petitparser-core-converting'!
 
 asParser
 	^ PPLiteralSequenceParser on: self
 ! !
+
 !Symbol methodsFor:'*petitparser-core-converting'!
 
 asParser
 	^ PPPredicateObjectParser perform: self
 ! !
+
 !Symbol methodsFor:'Compatibility-Squeak'!
 
 value:anObject
@@ -120,13 +133,21 @@
 
     "Created: / 18-12-2010 / 16:47:22 / Jan Kurs <kurs.jan@post.cz>"
 ! !
+
 !Text methodsFor:'*petitparser-core'!
 
 asPetitStream
 	^ string asPetitStream
 ! !
+
 !UndefinedObject methodsFor:'*petitparser-converting'!
 
 asParser
 	^ PPEpsilonParser new
 ! !
+
+!squeak_petitparser class methodsFor:'documentation'!
+
+extensionsVersion_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.2 2011-09-12 17:48:53 cg Exp $'
+! !
\ No newline at end of file