class STREAMTAIL [G]

inherit
	STREAMSUSPENSION [G]

creation 
	make

feature 

	make (s: like suspension) is
		do
			suspension := s
		end;
	
feature {NONE} 

	suspension: STREAM [G];

	forceitem: G is
		do
			Result := suspension.forcedtail.item
		end;

	forcetail: STREAM [G] is
		do
			Result := suspension.forcedtail.forcedtail
		end;

	last: BOOLEAN is
		do
			Result := suspension.forcedtail.last
		end;
	
end -- class STREAMTAIL