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