Function sort

Source/Misc/lua/src/lua.c:14802–14810

}

static int sort (lua_State *L) {
int n = aux_getn(L, 1);
luaL_checkstack(L, 40, "");  /* assume array is smaller than 2^40 */
if (!lua_isnoneornil(L, 2))  /* is there a 2nd argument? */
luaL_checktype(L, 2, LUA_TFUNCTION);
lua_settop(L, 2);  /* make sure there is two arguments */
auxsort(L, 1, n);
return 0;
}

/* }====================================================== */