+ SCM
+ wrap_device (irr::IrrlichtDevice* device)
+ {
+ return scm_make_foreign_object_1 (device_type, device);
+ }
+
+ irr::IrrlichtDevice*
+ unwrap_device (SCM device_obj)
+ {
+ scm_assert_foreign_object_type (device_type, device_obj);
+ return (irr::IrrlichtDevice*)scm_foreign_object_ref (device_obj, 0);
+ }
+