guile/guile-core/srfi ChangeLog srfi-19.scm

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/09/22 17:17:31

Modified files:
        guile-core/srfi: ChangeLog srfi-19.scm 

Log message:
        * srfi-19.scm (priv:split-real): Inserted missing call to
        inexact->exact.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/ChangeLog.diff?cvsroot=OldCVS&tr1=1.69&tr2=1.70&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/srfi/srfi-19.scm.diff?cvsroot=OldCVS&tr1=1.11&tr2=1.12&r1=text&r2=text

Patches:
Index: guile/guile-core/srfi/ChangeLog
diff -u guile/guile-core/srfi/ChangeLog:1.69 
guile/guile-core/srfi/ChangeLog:1.70
--- guile/guile-core/srfi/ChangeLog:1.69        Fri Sep 21 13:56:00 2001
+++ guile/guile-core/srfi/ChangeLog     Sat Sep 22 17:17:31 2001
@@ -1,3 +1,8 @@
+2001-09-22  Mikael Djurfeldt  <address@hidden>
+
+       * srfi-19.scm (priv:split-real): Inserted missing call to
+       inexact->exact.
+
 2001-09-21  Rob Browning  <address@hidden>
 
        * srfi-14.h (SCM_CHARSET_GET): need 1L, not just 1 in "<<".
Index: guile/guile-core/srfi/srfi-19.scm
diff -u guile/guile-core/srfi/srfi-19.scm:1.11 
guile/guile-core/srfi/srfi-19.scm:1.12
--- guile/guile-core/srfi/srfi-19.scm:1.11      Sat Aug 25 14:40:11 2001
+++ guile/guile-core/srfi/srfi-19.scm   Sat Sep 22 17:17:31 2001
@@ -319,7 +319,8 @@
   (make-time (time-type time) (time-nanosecond time) (time-second time)))
 
 (define (priv:split-real r)
-  (if (integer? r) (values r 0)
+  (if (integer? r)
+      (values (inexact->exact r) 0)
       (let ((l (truncate r)))
         (values (inexact->exact l) (- r l)))))