X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fvideo-driver.cpp;h=60fc867cdb3050e46a0111230e8bd13854cb19cc;hp=35491116ff13fcc1e039736c8e26a29456128dca;hb=5d5dfa18d1acb2c3fa05df26b285ff430c9aff89;hpb=2532ec193354090d2bd34fb8380beb798b4e451e

diff --git a/src/video-driver.cpp b/src/video-driver.cpp
index 3549111..60fc867 100644
--- a/src/video-driver.cpp
+++ b/src/video-driver.cpp
@@ -129,7 +129,7 @@ IVideoDriver_getTexture (SCM video_driver,
   video::IVideoDriver* driver = (video::IVideoDriver*) scm_to_irr_pointer (video_driver);
   video::ITexture* texture = driver->getTexture (cfilename);
   free (cfilename);
-  return scm_from_pointer ((void*) texture, NULL);
+  return scm_from_irr_pointer ("<texture>", (void*) texture);
 }
 
 SCM