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; }