IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Guile 1.8 seems to be pickier about inexact->exact producing integer

Browse Source 
numbers.
BP


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@15653 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
David Hampton 2007-02-25 06:19:35 +00:00
parent be3b2d0106
commit 8627d4c024
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/scm/printing/number-to-words.scm
View File

@ -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)