package com.googlecode.prolog_cafe.lang;
/**
 * A trail entry for out-of-loop flag.<br>
 * This <code>OutOfLoop</code> class is used in 
 * subclasses of <code>BlockPredicate</code>.<br>
 * <font color="red">This document is under construction.</font>
 *
 * @author Mutsunori Banbara (banbara@kobe-u.ac.jp)
 * @author Naoyuki Tamura (tamura@kobe-u.ac.jp)
 * @version 1.0
 */
public class OutOfLoop implements Undoable {
    BlockPredicate p;

    public OutOfLoop(BlockPredicate _p) {
	p = _p;
    }

    @Override
    public void undo() {
	p.outOfLoop = true;
    }
}