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

* modules.c (scm_sym2var): Don't compare SCM values with ==.

Browse source
This commit is contained in:
Dirk Herrmann 2002-07-21 21:18:27 +00:00
parent 1d1559ce6d
commit bcbd25b74f
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/ChangeLog
View file

@ -1,3 +1,7 @@
2002-07-21 Dirk Herrmann <D.Herrmann@tu-bs.de>
* modules.c (scm_sym2var): Don't compare SCM values with ==.
2002-07-21 Han-Wen <hanwen@cs.uu.nl> 2002-07-21 Han-Wen <hanwen@cs.uu.nl>
* goops.c (scm_compute_applicable_methods): use * goops.c (scm_compute_applicable_methods): use

2
libguile/modules.c
View file

@ -435,7 +435,7 @@ scm_sym2var (SCM sym, SCM proc, SCM definep)
{ {
SCM handle; SCM handle;
if (definep == SCM_BOOL_F) if (SCM_FALSEP (definep))
var = scm_hashq_ref (scm_pre_modules_obarray, sym, SCM_BOOL_F); var = scm_hashq_ref (scm_pre_modules_obarray, sym, SCM_BOOL_F);
else else
{ {