wrap Irrlicht objects in C++

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

diff --git a/src/material.cpp b/src/material.cpp
index 8380924fc210249324a254c33bf420eecabd7a1d..087952a78074afe97a6d3842f51eb8d7c92e2d09 100644 (file)
--- a/src/material.cpp
+++ b/src/material.cpp
@@ -26,6 +26,7 @@
 #include "gsubr.h"
 #include "material.h"
 #include "material-types.h"
+#include "wrapped.h"
 
 using namespace irr;
 
@@ -116,7 +117,7 @@ SMaterial_make (SCM rest)
   material->FogEnable = scm_to_bool (fog_enable);
   material->NormalizeNormals = scm_to_bool (normalize_normals);
   material->UseMipMaps = scm_to_bool (use_mip_maps);
-  return scm_from_pointer ((void*) material, NULL);
+  return scm_from_irr_pointer ("<material>", (void*) material);
 }
 
 void