From bcbd25b74ff741a72df5e56385744dabc03d9575 Mon Sep 17 00:00:00 2001
From: Dirk Herrmann <dirk@dirk-herrmanns-seiten.de>
Date: Sun, 21 Jul 2002 21:18:27 +0000
Subject: [PATCH] * modules.c (scm_sym2var):  Don't compare SCM values with ==.

---
 libguile/ChangeLog | 4 ++++
 libguile/modules.c | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

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
 	{