X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Ffile-system.cpp;h=44171b362c46f4ecce38a9503a11f29c22cc9d82;hb=37aba303eccc24a407f1b5b0af81623e47b89a22;hp=a421fd3adb7307f4a7c398e0e9e26bf0e48af2ca;hpb=69ed7f57e6295034fa64ab2bf6d10da6882860ef;p=guile-irrlicht.git

diff --git a/src/file-system.cpp b/src/file-system.cpp
index a421fd3..44171b3 100644
--- a/src/file-system.cpp
+++ b/src/file-system.cpp
@@ -48,11 +48,11 @@ extern "C" {
                          SCM filename,
                          SCM rest)
   {
-    SCM ignore_case = scm_from_bool (1);
-    SCM ignore_paths = scm_from_bool (1);
+    SCM ignore_case = SCM_BOOL_T;
+    SCM ignore_paths = SCM_BOOL_T;
     SCM archive_type = scm_from_utf8_symbol ("unknown");
     SCM password = scm_from_utf8_string ("");
-    SCM ret_archive = scm_from_bool (0);
+    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;