X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Ffile-system.cpp;h=4c643ae3e05272eb5abc695ed254cff0fd21a822;hb=437db80e9b374e32d0bb5f7beeb4516fc1dd65c3;hp=a421fd3adb7307f4a7c398e0e9e26bf0e48af2ca;hpb=68528ba0d56d77a3e803e984237c873515dc9618;p=guile-irrlicht.git

diff --git a/src/file-system.cpp b/src/file-system.cpp
index a421fd3..4c643ae 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_BOOL_F;
 
     scm_c_bind_keyword_arguments ("add-file-archive!", rest, (scm_t_keyword_arguments_flags)0,
                                   scm_from_utf8_keyword ("ignore-case"), &ignore_case,