--- a/extensions.st	Mon Feb 17 02:33:26 2014 +0100
+++ b/extensions.st	Mon Feb 17 02:33:27 2014 +0100
@@ -78,6 +78,22 @@
 	^ PPStream on: self
 ! !
 
+!Interval methodsFor:'*petitparser-core-converting'!
+
+asParser
+    "Create a parser for any in a range of characters between start and stop."
+
+    self assert:start isCharacter.
+    self assert:stop isCharacter.
+    self assert:step == 1.
+    ^ PPPredicateObjectParser between: start and: stop
+
+    "
+     ($a to:$f) asParser parse:'a'
+     ($a to:$f) asParser parse:'g'
+    "
+! !
+
 !Set methodsFor:'*petitparser-core-converting'!
 
 asParser
@@ -125,5 +141,5 @@
 !stx_goodies_petitparser class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.5 2014-02-17 01:30:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/extensions.st,v 1.6 2014-02-17 01:33:27 cg Exp $'
 ! !