wrap Irrlicht objects in C++

[guile-irrlicht.git] / src / gui-skin.cpp

diff --git a/src/gui-skin.cpp b/src/gui-skin.cpp
index 06242ddebec7fab5f344dd920847cf13eafff45a..aeebebe897d1965abc32ae84a8e1aaa7f8ab687e 100644 (file)
--- a/src/gui-skin.cpp
+++ b/src/gui-skin.cpp
@@ -43,7 +43,7 @@ IGUISkin_getFont (SCM gui_skin,
 {
   gui::IGUISkin* skin = (gui::IGUISkin*) scm_to_irr_pointer (gui_skin);
   gui::IGUIFont* font = skin->getFont (scm_to_default_font (which));
-  return scm_from_pointer ((void*) font, NULL);
+  return scm_from_irr_pointer ("<gui-font>", (void*) font);
 }
 
 SCM