From c7172736ddbfb1ef5a0a2a53730ae4e24bcebf0b Mon Sep 17 00:00:00 2001 From: David Hampton Date: Mon, 6 Nov 2006 04:45:27 +0000 Subject: [PATCH] Fix some scheme inexact errors. Fixes 347462. BP git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@15088 57a11ea4-9604-0410-9ed3-97b8803252fd --- ChangeLog | 6 ++++++ src/report/standard-reports/account-piecharts.scm | 3 ++- src/report/standard-reports/category-barchart.scm | 3 ++- 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 3b049f99f1..e01067007c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2006-11-05 David Hampton + + * src/report/standard-reports/category-barchart.scm: + * src/report/standard-reports/account-piecharts.scm: Fix some + scheme inexact errors. Fixes 347462. + 2006-10-09 Josh Sled * art/: Add, with 2.0 {banner,icon,logo,splash} art. diff --git a/src/report/standard-reports/account-piecharts.scm b/src/report/standard-reports/account-piecharts.scm index 623b4d8202..1d7f2e1b57 100644 --- a/src/report/standard-reports/account-piecharts.scm +++ b/src/report/standard-reports/account-piecharts.scm @@ -188,7 +188,8 @@ balance at a given time")) (show-fullname? (get-option gnc:pagename-display optname-fullname)) (show-total? (get-option gnc:pagename-display optname-show-total)) - (max-slices (get-option gnc:pagename-display optname-slices)) + (max-slices (inexact->exact + (get-option gnc:pagename-display optname-slices))) (height (get-option gnc:pagename-display optname-plot-height)) (width (get-option gnc:pagename-display optname-plot-width)) (sort-method (get-option gnc:pagename-display optname-sort-method)) diff --git a/src/report/standard-reports/category-barchart.scm b/src/report/standard-reports/category-barchart.scm index 808d8e24f9..8048a046bd 100644 --- a/src/report/standard-reports/category-barchart.scm +++ b/src/report/standard-reports/category-barchart.scm @@ -200,7 +200,8 @@ developing over time")) (stacked? (get-option gnc:pagename-display optname-stacked)) (show-fullname? (get-option gnc:pagename-display optname-fullname)) - (max-slices (get-option gnc:pagename-display optname-slices)) + (max-slices (inexact->exact + (get-option gnc:pagename-display optname-slices))) (height (get-option gnc:pagename-display optname-plot-height)) (width (get-option gnc:pagename-display optname-plot-width)) (sort-method (get-option gnc:pagename-display optname-sort-method))