X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Ffile-system.cpp;h=afb9f0b95af39dff8979de7ea62a00cce5a13bdc;hb=4f049544ec827a9f1f16a913d7241f29179fdde7;hp=204e25dabad0985bcd17662b552f3695eb5894f2;hpb=41a6ad96e81a8d8153c54877c4c12f61100677a9;p=guile-irrlicht.git

diff --git a/src/file-system.cpp b/src/file-system.cpp
index 204e25d..afb9f0b 100644
--- a/src/file-system.cpp
+++ b/src/file-system.cpp
@@ -24,6 +24,7 @@
 #include "file-archive.h"
 #include "file-system.h"
 #include "gsubr.h"
+#include "wrapped.h"
 
 using namespace irr;
 
@@ -36,7 +37,7 @@ IFileSystem_addFileArchive (SCM file_system,
                             SCM password,
                             SCM ret_archive)
 {
-  io::IFileArchive* retArchive = (io::IFileArchive*)scm_to_pointer (ret_archive);
+  io::IFileArchive* retArchive = (io::IFileArchive*)scm_to_irr_pointer (ret_archive);
   io::IFileArchive** retArchiveReference = 0;
   if (retArchive != NULL)
     {
@@ -44,12 +45,12 @@ IFileSystem_addFileArchive (SCM file_system,
     }
 
   return scm_from_bool
-    (((io::IFileSystem*)scm_to_pointer (file_system))->
-     addFileArchive (scm_to_utf8_stringn (filename, NULL),
+    (((io::IFileSystem*)scm_to_irr_pointer (file_system))->
+     addFileArchive (scm_to_utf8_string (filename),
                      scm_to_bool (ignore_case),
                      scm_to_bool (ignore_paths),
                      scm_to_file_archive_type (archive_type),
-                     scm_to_utf8_stringn (password, NULL),
+                     scm_to_utf8_string (password),
                      retArchiveReference));
 }