X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2Fgui-skin.cpp;h=aeebebe897d1965abc32ae84a8e1aaa7f8ab687e;hp=06242ddebec7fab5f344dd920847cf13eafff45a;hb=5d5dfa18d1acb2c3fa05df26b285ff430c9aff89;hpb=2532ec193354090d2bd34fb8380beb798b4e451e

diff --git a/src/gui-skin.cpp b/src/gui-skin.cpp
index 06242dd..aeebebe 100644
--- 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