SCM booleans

[guile-irrlicht.git] / src / gui-environment.cpp

diff --git a/src/gui-environment.cpp b/src/gui-environment.cpp
index dfe3a0a2fe710ce414bf332fb9c2c7c3f0baecd3..011e9d7a70bd82f904e553f625f02f2bf7911599 100644 (file)
--- a/src/gui-environment.cpp
+++ b/src/gui-environment.cpp
@@ -67,11 +67,11 @@ extern "C" {
                          SCM rectangle,
                          SCM rest)
   {
-    SCM border = scm_from_bool (0);
-    SCM word_wrap = scm_from_bool (1);
-    SCM parent = scm_from_bool (0);
+    SCM border = SCM_BOOL_F;
+    SCM word_wrap = SCM_BOOL_T;
+    SCM parent = SCM_BOOL_F;
     SCM id = scm_from_int32 (-1);
-    SCM fill_background = scm_from_bool (0);
+    SCM fill_background = SCM_BOOL_F;
 
     scm_c_bind_keyword_arguments ("add-static-text!", rest, (scm_t_keyword_arguments_flags)0,
                                   scm_from_utf8_keyword ("border"), &border,