refactor

[guile-irrlicht.git] / src / reference-counted.cpp

diff --git a/src/reference-counted.cpp b/src/reference-counted.cpp
index 85634d4560dce04011010fd2f103655a859f2201..58878d38f019c17d32bea88d9d9522b1f0f85909 100644 (file)
--- a/src/reference-counted.cpp
+++ b/src/reference-counted.cpp
@@ -41,6 +41,11 @@ extern "C" {
       {
         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);
   }