wrap Irrlicht objects in C++

[guile-irrlicht.git] / src / video-driver.cpp

diff --git a/src/video-driver.cpp b/src/video-driver.cpp
index 35491116ff13fcc1e039736c8e26a29456128dca..60fc867cdb3050e46a0111230e8bd13854cb19cc 100644 (file)
--- 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