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