6 	instanceVariableNames:'waterToken context'

     6 	instanceVariableNames:'waterToken context'

     7 	classVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     8 	poolDictionaries:''

     9 	category:'PetitIslands-Parsers'

     9 	category:'PetitIslands-Parsers'

    10 !

    10 !

    11 

    12 

    12 !PPWater class methodsFor:'as yet unclassified'!

    13 !PPWater class methodsFor:'as yet unclassified'!

    13 

    14 

    14 on: parser

    15 on: parser

    15 	^ self on: parser waterToken: #any asParser

    16 	^ self on: parser waterToken: #any asParser

    78 

    79 

    79 waterToken: aPPParser

    80 waterToken: aPPParser

    80 	^ waterToken := aPPParser

    81 	^ waterToken := aPPParser

    81 ! !

    82 ! !

    82 

    83