// picoc: term_moveleft(cols); static void pterm_moveleft(pstate *p, val *r, val **param, int n) { unsigned delta; delta = param[0]->Val->UnsignedInteger; term_left(delta); }
// Lua: moveleft( cols ) static int luaterm_moveleft( lua_State* L ) { unsigned delta; delta = ( unsigned )luaL_checkinteger( L, 1 ); term_left( delta ); return 0; }
// (term-moveleft 'num) -> Nil any plisp_term_moveleft(any ex) { any x, y; long n; x = cdr(ex), y = EVAL(car(x)); NeedNum(ex, y); n = unBox(y); term_left(n); return Nil; }