X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fmaterial.cpp;h=087952a78074afe97a6d3842f51eb8d7c92e2d09;hp=8380924fc210249324a254c33bf420eecabd7a1d;hb=5d5dfa18d1acb2c3fa05df26b285ff430c9aff89;hpb=2532ec193354090d2bd34fb8380beb798b4e451e

diff --git a/src/material.cpp b/src/material.cpp
index 8380924..087952a 100644
--- 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