summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/ChangeLog4
-rw-r--r--libguile/modules.c2
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
{