Define procedures with keywords from C code

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

diff --git a/src/reference-counted.cpp b/src/reference-counted.cpp
index 85634d4560dce04011010fd2f103655a859f2201..eabc3efa0706d16d07deb53dc69fa3925f554a53 100644 (file)
--- a/src/reference-counted.cpp
+++ b/src/reference-counted.cpp
@@ -31,6 +31,7 @@ extern "C" {
   init_reference_counted (void)
   {
     scm_c_define_gsubr ("drop!", 1, 0, 0, (scm_t_subr)irr_drop);
+    scm_c_export ("drop!", NULL);
   }
 
   SCM
@@ -41,6 +42,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);
   }