SCM booleans

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

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