guile/guile-core/libguile ChangeLog num2integra...

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/09/20 04:17:25

Modified files:
        guile-core/libguile: ChangeLog num2integral.i.c 

Log message:
        * num2integral.i.c (NUM2INTEGRAL): Report an error when these
        routines are passed an inexact.  This change in behavior is
        motivated by concordance with R5RS: It is more common that a
        primitive doesn't want to accept an inexact for an exact.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/ChangeLog.diff?cvsroot=OldCVS&tr1=1.1510&tr2=1.1511&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/num2integral.i.c.diff?cvsroot=OldCVS&tr1=1.6&tr2=1.7&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1510 
guile/guile-core/libguile/ChangeLog:1.1511
--- guile/guile-core/libguile/ChangeLog:1.1510  Mon Sep 17 16:32:53 2001
+++ guile/guile-core/libguile/ChangeLog Thu Sep 20 04:17:25 2001
@@ -1,3 +1,14 @@
+2001-09-20  Mikael Djurfeldt  <address@hidden>
+
+       * error.c, error.h: Made error keys globally accessible.
+       Applications might want to test for these or use them in a direct
+       call to scm_error.
+
+       * num2integral.i.c (NUM2INTEGRAL): Report an error when these
+       routines are passed an inexact.  This change in behavior is
+       motivated by concordance with R5RS: It is more common that a
+       primitive doesn't want to accept an inexact for an exact.
+
 2001-09-17  Dirk Herrmann  <address@hidden>
 
         The following patch partially undoes my patch from 2001-06-30,
Index: guile/guile-core/libguile/num2integral.i.c
diff -u guile/guile-core/libguile/num2integral.i.c:1.6 
guile/guile-core/libguile/num2integral.i.c:1.7
--- guile/guile-core/libguile/num2integral.i.c:1.6      Sat Sep  1 13:17:50 2001
+++ guile/guile-core/libguile/num2integral.i.c  Thu Sep 20 04:17:25 2001
@@ -69,16 +69,6 @@
 
       return res;
     }
-  else if (SCM_REALP (num))
-    { /* inexact */
-    
-      double u = SCM_REAL_VALUE (num);
-      ITYPE res = u;
-      if ((double) res == u)
-        return res;
-      else
-        scm_out_of_range (s_caller, num);
-    }
   else
     scm_wrong_type_arg (s_caller, pos, num);
 }