X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Ffile-system.cpp;fp=src%2Ffile-system.cpp;h=44171b362c46f4ecce38a9503a11f29c22cc9d82;hb=a079c41de6a7504e579b425820beef21579e530e;hp=4c643ae3e05272eb5abc695ed254cff0fd21a822;hpb=5ae44925acf0d6905a62e28a09af184d9db655a1;p=guile-irrlicht.git

diff --git a/src/file-system.cpp b/src/file-system.cpp
index 4c643ae..44171b3 100644
--- a/src/file-system.cpp
+++ b/src/file-system.cpp
@@ -52,7 +52,7 @@ extern "C" {
     SCM ignore_paths = SCM_BOOL_T;
     SCM archive_type = scm_from_utf8_symbol ("unknown");
     SCM password = scm_from_utf8_string ("");
-    SCM ret_archive = SCM_BOOL_F;
+    SCM ret_archive = SCM_UNDEFINED;
 
     scm_c_bind_keyword_arguments ("add-file-archive!", rest, (scm_t_keyword_arguments_flags)0,
                                   scm_from_utf8_keyword ("ignore-case"), &ignore_case,
@@ -63,7 +63,7 @@ extern "C" {
                                   SCM_UNDEFINED);
 
     irr::io::IFileArchive** retArchiveReference = 0;
-    if (!scm_is_false (ret_archive))
+    if (ret_archive != SCM_UNDEFINED)
       {
         irr::io::IFileArchive* retArchive = unwrap_file_archive (ret_archive);
         retArchiveReference = &retArchive;