X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Freference-counted.cpp;h=f01287f22032606c9423f125e46f3a38c6a83c19;hb=c4d9e46f268b4f7f738dd77685c632991125cec9;hp=3e099d142419d7d91548dbbaabc4f24fb2e1f5e3;hpb=6c6597fcd2f8224cd019b4339037867c246b8a71;p=guile-irrlicht.git

diff --git a/src/reference-counted.cpp b/src/reference-counted.cpp
index 3e099d1..f01287f 100644
--- a/src/reference-counted.cpp
+++ b/src/reference-counted.cpp
@@ -23,26 +23,19 @@
 #include <libguile.h>
 #include "gsubr.h"
 #include "reference-counted.h"
-
+#include "wrapped.h"
 
 using namespace irr;
 
-
 template <typename T>
 SCM
 IReferenceCounted_drop (SCM obj)
 {
-  return scm_from_bool (((T) scm_to_pointer (obj))->drop ());
+  return scm_from_bool (((T) scm_to_irr_pointer (obj))->drop ());
 }
 
-
-extern "C" {
-
-  void
-  init_reference_counted (void)
-  {
-    DEFINE_GSUBR ("IReferenceCounted_drop_IrrlichtDevice", 1, 0, 0,
-                  IReferenceCounted_drop<IrrlichtDevice*>);
-  }
-
+void
+init_reference_counted (void)
+{
+  DEFINE_GSUBR ("IrrlichtDevice_drop", 1, 0, 0, IReferenceCounted_drop<IrrlichtDevice*>);
 }