From 3099835542d489ad42f937e97682272edcc6d38a Mon Sep 17 00:00:00 2001
From: sam <sam@55e467fa-43c5-0310-a8a2-de718669efc6>
Date: Fri, 26 Sep 2003 09:10:53 +0000
Subject: [PATCH]   * Fixed a minor compilation warning.

git-svn-id: svn://svn.zoy.org/elk/trunk@191 55e467fa-43c5-0310-a8a2-de718669efc6
---
 src/bool.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/bool.c b/src/bool.c
index 917bef2..f6668d2 100644
--- a/src/bool.c
+++ b/src/bool.c
@@ -64,8 +64,8 @@ int Eqv (Object x1, Object x2) {
     t2 = TYPE(x2);
     if (Numeric (t1) && Numeric (t2)) {
         /* r4rs 6.2 states that (eqv? 1 1.0) ==> #f */
-        if(t1 == T_Flonum && t2 != T_Flonum
-            || t1 != T_Flonum && t2 == T_Flonum)
+        if((t1 == T_Flonum && t2 != T_Flonum)
+            || (t1 != T_Flonum && t2 == T_Flonum))
             return 0;
         return Generic_Equal (x1, x2);
     }