diff options
-rw-r--r-- | libguile/ChangeLog | 4 | ||||
-rw-r--r-- | libguile/modules.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/libguile/ChangeLog b/libguile/ChangeLog index 5aa4ce9ab..513102edb 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -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> * goops.c (scm_compute_applicable_methods): use diff --git a/libguile/modules.c b/libguile/modules.c index 9c6d72621..d77aab912 100644 --- a/libguile/modules.c +++ b/libguile/modules.c @@ -435,7 +435,7 @@ scm_sym2var (SCM sym, SCM proc, SCM definep) { SCM handle; - if (definep == SCM_BOOL_F) + if (SCM_FALSEP (definep)) var = scm_hashq_ref (scm_pre_modules_obarray, sym, SCM_BOOL_F); else { |