AUDIT: r15653 - gnucash/trunk/src/scm/printing - Guile 1.8 seems to be pickier about inexact->exact producing integer

[David Hampton]

Author: hampton
Date: 2007-02-25 01:19:35 -0500 (Sun, 25 Feb 2007)
New Revision: 15653
Trac: http://svn.gnucash.org/trac/changeset/15653

Modified:
   gnucash/trunk/src/scm/printing/number-to-words.scm
Log:
Guile 1.8 seems to be pickier about inexact->exact producing integer
numbers.
BP


Modified: gnucash/trunk/src/scm/printing/number-to-words.scm
===================================================================
--- gnucash/trunk/src/scm/printing/number-to-words.scm	2007-02-24 02:46:19 UTC (rev 15652)
+++ gnucash/trunk/src/scm/printing/number-to-words.scm	2007-02-25 06:19:35 UTC (rev 15653)
@@ -57,9 +57,8 @@
                                     (+ .00001 (expt 10 (* 3 log-val)))))))
              (that-part (remainder val 
                                    (inexact->exact  
-                                    (+ .00001 
-                                       (truncate 
-                                        (expt 10 (* 3 log-val))))))))
+                                    (truncate 
+                                     (+ .00001 (expt 10 (* 3 log-val))))))))
         (if (> this-part 0)
             (set! current-string 
                   (string-append (integer-to-words this-part)