# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1336168817 -7200
# Node ID 8d881a6c0ea36aede1ba74a9f42ce0c6fcb2de46
# Parent  3b8de4bf5696f3fc52c08a64a11d2efa2d7d9592
Checkin from browser

diff -r 3b8de4bf5696 -r 8d881a6c0ea3 PPLiteralObjectParser.st
--- a/PPLiteralObjectParser.st	Sat May 05 00:00:04 2012 +0200
+++ b/PPLiteralObjectParser.st	Sat May 05 00:00:17 2012 +0200
@@ -7,15 +7,12 @@
 	category:'PetitParser-Parsers'
 !
 
-PPLiteralObjectParser comment:'A parser that accepts a single literal object, such as a character. This is the same as the predicate parser ''PPPredicateParser expect: literal'' but slightly more efficient.'
-!
-
 
 !PPLiteralObjectParser methodsFor:'operators'!
 
 caseInsensitive
 	"Answer a parser that can parse the receiver case-insensitive."
-
+	
 	literal asUppercase = literal asLowercase ifTrue: [ ^ self ].
 	^ PPPredicateObjectParser on: [ :value | literal sameAs: value ] message: message
 ! !
@@ -30,6 +27,14 @@
 
 !PPLiteralObjectParser class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralObjectParser.st,v 1.3 2012-05-04 22:00:17 vrany Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralObjectParser.st,v 1.3 2012-05-04 22:00:17 vrany Exp $'
+!
+
 version_SVN
-    ^ '$Id: PPLiteralObjectParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
+    ^ '§Id: PPLiteralObjectParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
 ! !