IsBoolean.java

package org.jerlang.erts.emulator.op;

import org.jerlang.Module;
import org.jerlang.Process;
import org.jerlang.erts.emulator.Instruction;
import org.jerlang.type.Boolean;
import org.jerlang.type.List;
import org.jerlang.type.Term;

/**
 * Test the type of Arg1 and jump to Lbl if it is not a Boolean.
 */
public class IsBoolean {

    public static Term execute(Process proc, Module m, Instruction i, List params) {
        Term arg1 = i.arg(1).toArg(proc);
        if (Boolean.am_false.equals(arg1) || Boolean.am_true.equals(arg1)) {
            return null;
        } else {
            return i.arg(0);
        }
    }

}