#include <libguile.h>
#include "device.h"
+#include "gsubr.h"
#include "reference-counted.h"
+#include "scene-node-animator.h"
extern "C" {
void
init_reference_counted (void)
{
- scm_c_define_gsubr ("drop!", 1, 0, 0, (scm_t_subr)irr_drop);
+ DEFINE_GSUBR ("drop!", 1, 0, 0, irr_drop);
}
SCM
{
result = unwrap_device (wrapped_obj)->drop ();
}
+ else if (scene_node_animator_p (wrapped_obj))
+ {
+ result = unwrap_scene_node_animator (wrapped_obj)->drop ();
+ }
else
{
scm_error (scm_arg_type_key, NULL, "Object cannot be dropped: ~S",