diff options
author | Ludovic Courtès <ludo@gnu.org> | 2012-06-08 12:44:07 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2012-06-08 12:44:07 +0200 |
commit | e80494083aa3e9dc40a7ae5da12f0e90db550889 (patch) | |
tree | a6ce7e827430db913befc22541b2fc79cb7ea168 /libguile/deprecated.c | |
parent | 0a3ac81a1c1017d3c71e9eac8f0dd3407563632b (diff) | |
download | guile-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.c | 4 |
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" |