free strings previously allocated for conversions

[guile-irrlicht.git] / src / file-system.cpp

diff --git a/src/file-system.cpp b/src/file-system.cpp
index afb9f0b95af39dff8979de7ea62a00cce5a13bdc..30a89ce5e4aaf368a7779b2e4d98a0534b06dc11 100644 (file)
--- a/src/file-system.cpp
+++ b/src/file-system.cpp
@@ -44,14 +44,20 @@ IFileSystem_addFileArchive (SCM file_system,
       retArchiveReference = &retArchive;
     }
 
-  return scm_from_bool
+  char* cfilename = scm_to_utf8_string (filename);
+  char* cpassword = scm_to_utf8_string (password);
+  bool result =
     (((io::IFileSystem*)scm_to_irr_pointer (file_system))->
-     addFileArchive (scm_to_utf8_string (filename),
+     addFileArchive (cfilename,
                      scm_to_bool (ignore_case),
                      scm_to_bool (ignore_paths),
                      scm_to_file_archive_type (archive_type),
-                     scm_to_utf8_string (password),
+                     cpassword,
                      retArchiveReference));
+
+  free (cfilename);
+  free (cpassword);
+  return scm_from_bool (result);
 }
 
 void