SCM
irr_drop (SCM wrapped_obj)
{
+ bool result = 0;
if (device_p (wrapped_obj))
{
- irr::IrrlichtDevice* obj = unwrap_device (wrapped_obj);
- return scm_from_bool (obj->drop ());
- }
- else
- {
- irr::IReferenceCounted* obj = (irr::IReferenceCounted*)scm_foreign_object_ref (wrapped_obj, 0);
- return scm_from_bool (obj->drop ());
+ result = unwrap_device (wrapped_obj)->drop ();
}
+ return scm_from_bool (result);
}
}