- ((gui::IGUIEnvironment*)scm_to_pointer (gui_environment))->
- getFont (scm_to_utf8_stringn (filename, NULL));
- return scm_from_pointer ((void*)font, NULL);
+ ((gui::IGUIEnvironment*)scm_to_irr_pointer (gui_environment))->getFont (cfilename);
+ free (cfilename);
+ return scm_from_irr_pointer ("<gui-font>", (void*) font);