Function push_function_metatable

Source/Misc/luabind/src/function.cpp:26–43

  }

  void push_function_metatable(lua_State* L)
  {
      lua_rawgetp(L, LUA_REGISTRYINDEX, &function_tag);

      if (lua_istable(L, -1))
          return;

      lua_pop(L, 1);

      lua_createtable(L, 0, 1); // One non-sequence entry for __gc.

      lua_pushliteral(L, "__gc");
      lua_pushcfunction(L, &function_destroy);
      lua_rawset(L, -3);

      lua_pushvalue(L, -1);
      lua_rawsetp(L, LUA_REGISTRYINDEX, &function_tag);
  }

} // namespace unnamed