Use SCM_UNDEFINED for undefined arguments

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

diff --git a/src/file-system.cpp b/src/file-system.cpp
index 4c643ae3e05272eb5abc695ed254cff0fd21a822..44171b362c46f4ecce38a9503a11f29c22cc9d82 100644 (file)
--- 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;