#OTHER by cg draft
authorClaus Gittinger <cg@exept.de>
Fri, 28 Jun 2019 09:13:36 +0200
changeset 640 63fdad4b773d
parent 639 5eef58208eab
child 641 ef3a2a415733
#OTHER by cg self class name -> self className
PPCompositeParser.st
--- a/PPCompositeParser.st	Tue May 28 03:27:12 2019 +0000
+++ b/PPCompositeParser.st	Fri Jun 28 09:13:36 2019 +0200
@@ -1,5 +1,9 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/petitparser' }"
 
+"{ NameSpace: Smalltalk }"
+
 PPDelegateParser subclass:#PPCompositeParser
 	instanceVariableNames:'dependencies'
 	classVariableNames:''
@@ -130,9 +134,11 @@
 !PPCompositeParser methodsFor:'querying'!
 
 dependencyAt: aClass
-	"Answer the dependent parser aClass. Throws an error if this parser class is not declared in the method #dependencies on the class-side of the receiver."
-	
-	^ dependencies at: aClass ifAbsent: [ self error: 'Undeclared dependency in ' , self class name , ' to ' , aClass name ]
+        "Answer the dependent parser aClass. Throws an error if this parser class is not declared in the method #dependencies on the class-side of the receiver."
+        
+        ^ dependencies at: aClass ifAbsent: [ self error: 'Undeclared dependency in ' , self className , ' to ' , aClass name ]
+
+    "Modified: / 28-06-2019 / 09:12:51 / Claus Gittinger"
 !
 
 productionAt: aSymbol
@@ -169,14 +175,14 @@
 !PPCompositeParser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPCompositeParser.st,v 1.4 2014-03-04 14:33:36 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPCompositeParser.st,v 1.4 2014-03-04 14:33:36 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: PPCompositeParser.st,v 1.4 2014-03-04 14:33:36 cg Exp $'
+    ^ '$Id$'
 ! !