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