VMemory subclass: #Fifo
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: nil !

Fifo comment: 'I am a FIFO memory manager' !

!Fifo methodsFor: 'memory access'!

insert: page
	pages add: page
!

replace: page
	pages removeFirst.
	self insert: page.
! !