init_reference_counted (void)
{
scm_c_define_gsubr ("drop!", 1, 0, 0, (scm_t_subr)irr_drop);
+ scm_c_export ("drop!", NULL);
}
SCM
{
result = unwrap_device (wrapped_obj)->drop ();
}
+ else
+ {
+ scm_error (scm_arg_type_key, NULL, "Object cannot be dropped: ~S",
+ scm_list_1 (wrapped_obj), scm_list_1 (wrapped_obj));
+ }
return scm_from_bool (result);
}