Unwrap Irrlicht objects in C++ instead of Guile

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

diff --git a/src/reference-counted.cpp b/src/reference-counted.cpp
index 1bdc8daf8737de65dc5791d363a18a6f68d29262..f01287f22032606c9423f125e46f3a38c6a83c19 100644 (file)
--- a/src/reference-counted.cpp
+++ b/src/reference-counted.cpp
@@ -23,6 +23,7 @@
 #include <libguile.h>
 #include "gsubr.h"
 #include "reference-counted.h"
+#include "wrapped.h"
 
 using namespace irr;
 
@@ -30,7 +31,7 @@ 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 ());
 }
 
 void