conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Fixed a minor compilation warning. 

git-svn-id: svn://svn.zoy.org/elk/trunk@191 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam 2003-09-26 09:10:53 +00:00
parent 42d750b896
commit 3099835542
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/bool.c
View File

@ -64,8 +64,8 @@ int Eqv (Object x1, Object x2) {
t2 = TYPE(x2); t2 = TYPE(x2);
if (Numeric (t1) && Numeric (t2)) { if (Numeric (t1) && Numeric (t2)) {
/* r4rs 6.2 states that (eqv? 1 1.0) ==> #f */ /* r4rs 6.2 states that (eqv? 1 1.0) ==> #f */
if(t1 == T_Flonum && t2 != T_Flonum if((t1 == T_Flonum && t2 != T_Flonum)
|| t1 != T_Flonum && t2 == T_Flonum) || (t1 != T_Flonum && t2 == T_Flonum))
return 0; return 0;
return Generic_Equal (x1, x2); return Generic_Equal (x1, x2);
} }