// picoc: cursory = term_getcy();
static void pterm_getcy(pstate *p, val *r, val **param, int n)
{
r->Val->UnsignedInteger = term_get_cy();
}
// Lua: cursory = getcy()
static int luaterm_getcy( lua_State* L )
{
lua_pushinteger( L, term_get_cy() );
return 1;
}
// (term-getcy) -> num
any plisp_term_getcy(any x) {
x = box(term_get_cy());
return x;
}