- SCM
- irr_getVideoDriver (SCM wrapped_obj)
- {
- irr::video::IVideoDriver* driver;
- if (device_p (wrapped_obj))
- {
- driver = unwrap_device (wrapped_obj)->getVideoDriver ();
- }
- else
- {
- scm_error (scm_arg_type_key, NULL, "Cannot get video driver from object: ~S",
- scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
- }
- return wrap_video_driver (driver);
- }
-