AUDIT: r15653 - gnucash/trunk/src/scm/printing - Guile 1.8 seems to be pickier about inexact->exact producing integer
David Hampton
hampton at cvs.gnucash.org
Sun Feb 25 01:19:37 EST 2007
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)
More information about the gnucash-changes
mailing list