* Assertions.

* Logical operators (!, &&, ||, ->).
This commit is contained in:
Eelco Dolstra 2003-11-05 16:27:40 +00:00
parent e17e95a828
commit fa18f1f184
6 changed files with 77 additions and 16 deletions

View file

@ -225,3 +225,16 @@ Expr primToString(EvalState & state, Expr arg)
return ATmake("Str(<str>)", s);
else throw badTerm("cannot coerce to string", arg);
}
Expr primNull(EvalState & state, Expr arg)
{
return ATmake("Null");
}
Expr primIsNull(EvalState & state, Expr arg)
{
arg = evalExpr(state, arg);
return makeBool(ATmatch(arg, "Null"));
}