summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-06-08 12:44:07 +0200
committerLudovic Courtès <ludo@gnu.org>2012-06-08 12:44:07 +0200
commite80494083aa3e9dc40a7ae5da12f0e90db550889 (patch)
treea6ce7e827430db913befc22541b2fc79cb7ea168 /libguile/deprecated.c
parent0a3ac81a1c1017d3c71e9eac8f0dd3407563632b (diff)
downloadguile-e80494083aa3e9dc40a7ae5da12f0e90db550889.tar.gz
Fix invalid use of `SCM' as a Boolean.
* libguile/deprecated.c (scm_sym2var): Check `scm_is_true (definep)'.
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r--libguile/deprecated.c4
1 files 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"