Some doc

[guile-irrlicht.git] / src / box3d.cpp

diff --git a/src/box3d.cpp b/src/box3d.cpp
index ed56fdc3228f514e9bbf52f30c5d153c5200f69e..e254bc23cf2372a08efc8f18773e8302787e53b7 100644 (file)
--- a/src/box3d.cpp
+++ b/src/box3d.cpp
@@ -24,6 +24,7 @@
 #include "box3d.h"
 #include "gsubr.h"
 #include "vector3d.h"
+#include "wrapped.h"
 
 using namespace irr;
 
@@ -31,7 +32,7 @@ SCM
 aabbox3d_addInternalPoint (SCM box3d,
                            SCM point)
 {
-  ((core::aabbox3df*)scm_to_pointer (box3d))->addInternalPoint (scm_to_vector3df (point));
+  ((core::aabbox3df*)scm_to_irr_pointer (box3d))->addInternalPoint (scm_to_vector3df (point));
   return SCM_UNSPECIFIED;
 }
 
@@ -39,14 +40,14 @@ SCM
 aabbox3d_make ()
 {
   core::aabbox3df* aabbox = new core::aabbox3df ();
-  return scm_from_pointer ((void*)aabbox, NULL);
+  return scm_from_irr_pointer ("<box3d>", (void*) aabbox);
 }
 
 SCM
 aabbox3d_reset (SCM box3d,
                 SCM init_value)
 {
-  ((core::aabbox3df*)scm_to_pointer (box3d))->reset (scm_to_vector3df (init_value));
+  ((core::aabbox3df*)scm_to_irr_pointer (box3d))->reset (scm_to_vector3df (init_value));
   return SCM_UNSPECIFIED;
 }