--- a/analyzer/PPParserReplaceRule.st Tue Mar 04 21:10:20 2014 +0100
+++ b/analyzer/PPParserReplaceRule.st Tue Mar 04 21:12:46 2014 +0100
@@ -23,13 +23,19 @@
replaceParser := aParser
! !
+!PPParserReplaceRule methodsFor:'matching'!
+
+foundMatchFor:aParser
+ ^ replaceParser copyInContext: owner context
+! !
+
!PPParserReplaceRule class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPParserReplaceRule.st,v 1.1 2014-03-04 15:41:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPParserReplaceRule.st,v 1.2 2014-03-04 20:12:46 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPParserReplaceRule.st,v 1.1 2014-03-04 15:41:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/analyzer/PPParserReplaceRule.st,v 1.2 2014-03-04 20:12:46 cg Exp $'
! !