From e80494083aa3e9dc40a7ae5da12f0e90db550889 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 8 Jun 2012 12:44:07 +0200
Subject: [PATCH] Fix invalid use of `SCM' as a Boolean.

* libguile/deprecated.c (scm_sym2var): Check `scm_is_true (definep)'.
---
 libguile/deprecated.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index 61fa8e271..af0752c61 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -2653,13 +2653,13 @@ scm_i_deprecated_asrtgo (scm_t_bits condition)
  * the scm_pre_modules_obarray (a `eq' hash table).
  */
 
-SCM 
+SCM
 scm_sym2var (SCM sym, SCM proc, SCM definep)
 #define FUNC_NAME "scm_sym2var"
 {
   SCM var;
 
-  if (definep)
+  if (scm_is_true (definep))
     scm_c_issue_deprecation_warning
       ("scm_sym2var is deprecated. Use scm_define or scm_module_define\n"
        "to define variables.  In some rare cases you may need\n"