static void
assert_integer1 (expr_t p, char *s)
{
if (!integer_p (p))
{
nu_error ("syntax error: integer expected: %s", s);
}
}
static void
assert_integer (expr_t p)
{
if (!integer_p (p))
{
nu_error ("syntax error: integer expected");
}
}
cell pp_curs_mvcur(cell x) {
char name[] = "curs:mvcur";
if (!Running) return UNSPECIFIC;
if (!integer_p(cadddr(x)))
return error("curs:mvcur: expected integer, got",
caddr(cdr(x)));
mvcur(integer_value(name, car(x)),
integer_value(name, cadr(x)),
integer_value(name, caddr(x)),
integer_value(name, cadddr(x)));
return UNSPECIFIC;
}
