namespace factor
{

struct full_policy {
	factor_vm *myvm;
	zone *tenured;

	full_policy(factor_vm *myvm_) : myvm(myvm_), tenured(myvm->data->tenured) {}

	bool should_copy_p(object *untagged)
	{
		return !tenured->contains_p(untagged);
	}
};

struct full_collector : copying_collector<tenured_space,full_policy> {
	bool trace_contexts_p;

	full_collector(factor_vm *myvm_, bool trace_contexts_p_);
	void go();
};

}