--- a/PPParser.st Fri Jan 11 10:58:24 2013 +0100
+++ b/PPParser.st Fri Jan 11 13:31:10 2013 +0100
@@ -440,10 +440,18 @@
!
printOn: aStream
- super printOn: aStream.
- aStream nextPut: $(.
- self printNameOn: aStream.
- aStream nextPut: $)
+ PPPrinter notNil ifTrue:[
+ PPPrinter new
+ stream: aStream ;
+ visit: self
+ ] ifFalse:[
+ super printOn: aStream.
+ aStream nextPut: $(.
+ self printNameOn: aStream.
+ aStream nextPut: $)
+ ].
+
+ "Modified: / 11-01-2013 / 09:20:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!PPParser methodsFor:'testing'!
@@ -456,14 +464,15 @@
^ false
! !
+
!PPParser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.4 2012-12-01 14:29:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.5 2013-01-11 12:31:10 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.4 2012-12-01 14:29:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.5 2013-01-11 12:31:10 vrany Exp $'
!
version_SVN