compiler/PPCSequenceNode.st
changeset 488 19a9c25960ef
parent 484 e829f3860745
child 499 835999517f15
equal deleted inserted replaced
487:602215b19135 488:19a9c25960ef
   170                     ifTrue: [ follow addAll: aSet ].
   170                     ifTrue: [ follow addAll: aSet ].
   171                 follow addAll: (first 
   171                 follow addAll: (first 
   172                     reject: [ :each | each isNullable ]) ] ]
   172                     reject: [ :each | each isNullable ]) ] ]
   173 ! !
   173 ! !
   174 
   174 
       
   175 !PPCSequenceNode methodsFor:'testing'!
       
   176 
       
   177 isSequenceNode
       
   178     ^ true
       
   179 
       
   180     "Created: / 15-06-2015 / 18:29:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   181 ! !
       
   182 
   175 !PPCSequenceNode methodsFor:'visiting'!
   183 !PPCSequenceNode methodsFor:'visiting'!
   176 
   184 
   177 accept: visitor
   185 accept: visitor
   178     ^ visitor visitSequenceNode: self
   186     ^ visitor visitSequenceNode: self
   179 ! !
   187 ! !