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

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