Island Parsing - Error when Case-Insensitive

[seandenigris]

'ISLAND' asPParser caseInsensitive sea parse: 'SEA island SEA'

Gives: Error: should provide specific implementation Call chain:

PP2NextSetsVisitor(Object)>>error:
PP2NextSetsVisitor>>visitPP2Node:
PP2NextSetsVisitor(PP2NodeVisitor)>>visitPredicateSequence:
PP2PredicateSequenceNode>>accept:
PP2NextSetsVisitor(PP2NoopVisitor)>>visit:
[ :child | self visit: child ] in PP2NextSetsVisitor>>visitChildrenOf: in Block: [ :child | self visit: child ]
Array(SequenceableCollection)>>do:
PP2NextSetsVisitor>>visitChildrenOf:
PP2NextSetsVisitor>>visitDelegate:
PP2NextSetsVisitor>>visitSea:
PP2SeaNode>>accept:
PP2NextSetsVisitor(PP2NoopVisitor)>>visit:
[ PP2NextSetsVisitor new
	visit: self;
	nextSets ] in PP2SeaNode(PP2Node)>>nextSets in Block: [ PP2NextSetsVisitor new...

NB it works if you remove the #caseInsensitive send

[refactoringdr]

I ran into this today, also