Example #1
0
// 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);
}
Example #2
0
// Lua: moveleft( cols )
static int luaterm_moveleft( lua_State* L )
{
  unsigned delta;
  
  delta = ( unsigned )luaL_checkinteger( L, 1 );
  term_left( delta );
  return 0;
}
Example #3
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;
}