--- a/PPComposedTest.st	Sat Dec 01 16:09:03 2012 +0100
+++ b/PPComposedTest.st	Sat Dec 01 16:10:15 2012 +0100
@@ -144,24 +144,24 @@
 !
 
 testNestedComments
-	"C ::= B I* E"
-	"I ::= !!E (C | T)"
-	"B ::= /*"
-	"E ::= */"
-	"T ::= ."
-	
-	| begin end any inside parser |
-	begin := '/*' asParser.
-	end := '*/' asParser.
-	any := #any asParser.
-	
-	parser := PPUnresolvedParser new.
-	inside := end not , (parser / any).
-	parser def: begin , inside star , end.
-	
-	self assert: parser parse: '/*ab*/cd' end: 6.
-	self assert: parser parse: '/*a/*b*/c*/'.
-	self assert: parser fail: '/*a/*b*/c'
+        "C ::= B I* E"
+        "I ::= !!E (C | T)"
+        "B ::= /*"
+        "E ::= */"
+        "T ::= ."
+        
+        | begin end any inside parser |
+        begin := '/*' asParser.
+        end := '*/' asParser.
+        any := #any asParser.
+        
+        parser := PPUnresolvedParser new.
+        inside := end not , (parser / any).
+        parser def: begin , inside star , end.
+        
+        self assert: parser parse: '/*ab*/cd' end: 6.
+        self assert: parser parse: '/*a/*b*/c*/'.
+        self assert: parser fail: '/*a/*b*/c'
 !
 
 testPalindrome
@@ -405,11 +405,11 @@
 !PPComposedTest class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPComposedTest.st,v 1.3 2012-05-04 21:59:40 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPComposedTest.st,v 1.4 2012-12-01 15:10:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPComposedTest.st,v 1.3 2012-05-04 21:59:40 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPComposedTest.st,v 1.4 2012-12-01 15:10:15 cg Exp $'
 !
 
 version_SVN