mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 05:20:16 +02:00
Code Activity

Fix invalid use of `SCM' as a Boolean.

Browse source 
* libguile/deprecated.c (scm_sym2var): Check `scm_is_true (definep)'.
This commit is contained in:
Ludovic Courtès 2012-06-08 12:44:07 +02:00
parent 0a3ac81a1c
commit e80494083a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/deprecated.c
View file

@ -2659,7 +2659,7 @@ scm_sym2var (SCM sym, SCM proc, SCM definep)
{ {
SCM var; SCM var;
if (definep) if (scm_is_true (definep))
scm_c_issue_deprecation_warning scm_c_issue_deprecation_warning
("scm_sym2var is deprecated. Use scm_define or scm_module_define\n" ("scm_sym2var is deprecated. Use scm_define or scm_module_define\n"
"to define variables. In some rare cases you may need\n" "to define variables. In some rare cases you may need\n"