// picoc: term_moveup(lines);
static void pterm_moveup(pstate *p, val *r, val **param, int n)
{
unsigned delta;
delta = param[0]->Val->UnsignedInteger;
term_up(delta);
}
// Lua: moveup( lines )
static int luaterm_moveup( lua_State* L )
{
unsigned delta;
delta = ( unsigned )luaL_checkinteger( L, 1 );
term_up( delta );
return 0;
}
// (term-moveup 'num) -> Nil
any plisp_term_moveup(any ex) {
any x, y;
long n;
x = cdr(ex), y = EVAL(car(x));
NeedNum(ex, y);
n = unBox(y);
term_up(n);
return Nil;
}