X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=src%2FIrrlichtDevice.cpp;h=82b729d040e5f2f580f2d2c47ef7808808a0648f;hp=026df21fa8c889118db96aee51462d323c07fb43;hb=56de371557044d3b7acc14cb94cc46641be906d9;hpb=03d4e13abc392abec3ef9cb6a97d83a5ae722ca8

diff --git a/src/IrrlichtDevice.cpp b/src/IrrlichtDevice.cpp
index 026df21..82b729d 100644
--- a/src/IrrlichtDevice.cpp
+++ b/src/IrrlichtDevice.cpp
@@ -21,7 +21,6 @@
 
 #include <irrlicht/irrlicht.h>
 #include <libguile.h>
-#include <wchar.h>
 
 #include "dimension2d.h"
 #include "EDriverTypes.h"
@@ -95,14 +94,7 @@ extern "C" {
                         SCM text)
   {
     irr::IrrlichtDevice* device = unwrap_device (device_obj);
-    char* ctext;
-    wchar_t* wtext;
-
-    ctext = scm_to_utf8_stringn (text, NULL);
-    wtext = (wchar_t*)malloc ((strlen (ctext) + 1) * sizeof (wchar_t));
-    mbstowcs (wtext, ctext, strlen (ctext) + 1);
-
-    device->setWindowCaption (wtext);
+    device->setWindowCaption (scm_to_wide_char_string (text));
     return SCM_UNSPECIFIED;
   }