13 on: aBlock

    13 on: aBlock

    14 	^ self new initializeOn: aBlock

    14 	^ self new initializeOn: aBlock

    15 ! !

    15 ! !

    16 

    16 

    17 

    17 

    18 !PPPluggableParser methodsFor:'accessing'!

    19 !PPPluggableParser methodsFor:'accessing'!

    19 

    20 

    20 block

    21 block

    21 	"Answer the pluggable block."

    22 	"Answer the pluggable block."

    22 

    23 

    28 initializeOn: aBlock

    29 initializeOn: aBlock

    29 	block := aBlock

    30 	block := aBlock

    30 ! !

    31 ! !

    31 

    32 

    32 !PPPluggableParser methodsFor:'parsing'!

    33 !PPPluggableParser methodsFor:'parsing'!

    33 

    38 

    34 parseOn: aPPContext

    39 parseOn: aPPContext

    35 	| memento result |

    40 	| memento result |

    36 	memento := aPPContext remember.

    41 	memento := aPPContext remember.

    37 	result := block value: aPPContext.

    42 	result := block value: aPPContext.