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