#include "defs.h"
#include "prims.h"

PRIM(and)
{
 struct inst *v1;
 struct inst *v2;
 int rv;

 NARGS(2);
 v1 = TOS(0);
 v2 = TOS(1);
 rv = !false(v1) && !false(v2);
 POP(2);
 MPUSH(PROG_INTEGER,rv);
}

PRIM(or)
{
 struct inst *v1;
 struct inst *v2;
 int rv;

 NARGS(2);
 v1 = TOS(0);
 v2 = TOS(1);
 rv = !false(v1) || !false(v2);
 POP(2);
 MPUSH(PROG_INTEGER,rv);
}

PRIM(not)
{
 struct inst *v;
 int rv;

 NARGS(1);
 v = TOS(0);
 rv = false(v);
 POP(1);
 MPUSH(PROG_INTEGER,rv);
}