equal? frac versus real

equal? frac versus real

[Kevin Ryde]

[-- Attachment #1: Type: text/plain, Size: 189 bytes --]

        * eq.c (scm_equal_p): Remove real==fraction and fraction==real, they
        must be #f according to R5RS.  (equal? follows eqv?, and for eqv? an
        exact and inexact is #f.)


[-- Attachment #2: eq.c.frac-real.diff --]
[-- Type: text/plain, Size: 872 bytes --]

--- eq.c.~1.50.~	2004-07-28 08:49:08.000000000 +1000
+++ eq.c	2004-08-10 18:25:53.000000000 +1000
@@ -173,24 +173,6 @@
 			     && SCM_COMPLEX_IMAG (x) == 0.0);
 	}
 
-      /* should we handle fractions here also? */
-      else if ((SCM_FRACTIONP (x)) && (SCM_INEXACTP (y)))
-	{
-	  if (SCM_REALP (y))
-	    return scm_from_bool (scm_i_fraction2double (x) == SCM_REAL_VALUE (y));
-	  else
-	    return scm_from_bool (SCM_COMPLEX_REAL (y) == scm_i_fraction2double (x)
-			     && SCM_COMPLEX_IMAG (y) == 0.0);
-	}
-      else if ((SCM_FRACTIONP (y)) && (SCM_INEXACTP (x)))
-	{
-	  if (SCM_REALP (x))
-	    return scm_from_bool (scm_i_fraction2double (y) == SCM_REAL_VALUE (x));
-	  else
-	    return scm_from_bool (SCM_COMPLEX_REAL (x) == scm_i_fraction2double (y)
-			     && SCM_COMPLEX_IMAG (x) == 0.0);
-	}
-
       return SCM_BOOL_F;
     }
   switch (SCM_TYP7 (x))

[-- Attachment #3: Type: text/plain, Size: 143 bytes --]

_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel