Extension { #name : 'PPStream' }

{ #category : '*petitcompiler' }
PPStream >> peek: anInteger [
	| endPosition |
	endPosition := position + anInteger  min:  readLimit.
	^ collection copyFrom: position+1 to: endPosition.
]