compiler/PPCNode.st
changeset 459 4751c407bb40
parent 452 9f4558b3be66
child 464 f6d77fee9811
equal deleted inserted replaced
452:9f4558b3be66 459:4751c407bb40
   239 
   239 
   240     self hasFiniteLanguage ifTrue: [ 
   240     self hasFiniteLanguage ifTrue: [ 
   241         finite := self.
   241         finite := self.
   242         infinite := anotherNode.
   242         infinite := anotherNode.
   243     ] ifFalse: [ 
   243     ] ifFalse: [ 
   244  		finite := anotherNode.
   244  				finite := anotherNode.
   245         infinite := self.	
   245         infinite := self.	
   246     ].
   246     ].
   247         
   247         
   248     finite recognizedSentences do: [ :sentence |
   248     finite recognizedSentences do: [ :sentence |
   249             (infinite parser matches: sentence) ifTrue: [ ^ true ].
   249             (infinite parser matches: sentence) ifTrue: [ ^ true ].