path: root / src / StringConsumer / IHigherOrderConsumer.cl


1
2
3
4
5
6
7
8
9
10
11

class IHigherOrderConsumer inherits IStringConsumer {
	token: IToken;

	token() : IToken {
		token
	};

	did(length: Int) : Bool {
		0 < (consumed_length <- consumed_length + length)
	};
};