# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1336168897 -7200
# Node ID 93f28e32de359d329667e6615d0b395879074b8c
# Parent  c540c86492261525859fe5a2fd4f774727723ef1
Checkin from browser

diff -r c540c8649226 -r 93f28e32de35 PPPredicateParser.st
--- a/PPPredicateParser.st	Sat May 05 00:01:24 2012 +0200
+++ b/PPPredicateParser.st	Sat May 05 00:01:37 2012 +0200
@@ -7,26 +7,18 @@
 	category:'PetitParser-Parsers'
 !
 
-PPPredicateParser comment:'An abstract parser that accepts if a given predicate holds.
-Instance Variables:
-	predicate       <BlockClosure>  The block testing for the predicate.
-	predicateMessage        <String>        The error message of the predicate.
-	negated <BlockClosure>  The block testing for the negation of the predicate.
-	negatedMessage  <String>        The error message of the negated predicate.'
-!
-
 
 !PPPredicateParser methodsFor:'accessing'!
 
 block
 	"Answer the predicate block of the receiver."
-
+	
 	^ predicate
 !
 
 message
 	"Answer the failure message."
-
+	
 	^ predicateMessage
 ! !
 
@@ -39,6 +31,14 @@
 
 !PPPredicateParser class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateParser.st,v 1.3 2012-05-04 22:01:37 vrany Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateParser.st,v 1.3 2012-05-04 22:01:37 vrany Exp $'
+!
+
 version_SVN
-    ^ '$Id: PPPredicateParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
+    ^ '§Id: PPPredicateParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
 ! !