r15766 - gnucash/branches/2.0 - Guile 1.8 seems to be pickier about inexact->exact producing integer

[Derek Atkins]

Author: warlord
Date: 2007-03-30 17:56:18 -0400 (Fri, 30 Mar 2007)
New Revision: 15766
Trac: http://svn.gnucash.org/trac/changeset/15766

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

Merge from r15653.



Property changes on: gnucash/branches/2.0
___________________________________________________________________
Name: svk:merge
   - 3889ce50-311e-0410-a464-f059747ec5d1:/local/gnucash/branches/2.0:697
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/branches/2.0:14350
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/trunk:13282
   + 3889ce50-311e-0410-a464-f059747ec5d1:/local/gnucash/branches/2.0:697
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/branches/2.0:14351
d2ab10a8-8a95-4986-baff-8d511d9f15b2:/local/gnucash/trunk:13282

Modified: gnucash/branches/2.0/src/scm/printing/number-to-words.scm
===================================================================
--- gnucash/branches/2.0/src/scm/printing/number-to-words.scm	2007-03-30 21:56:01 UTC (rev 15765)
+++ gnucash/branches/2.0/src/scm/printing/number-to-words.scm	2007-03-30 21:56:18 UTC (rev 15766)
@@ -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)