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

@@ -1,3 +1,9 @@
+2006-11-05  David Hampton  <hampton@employees.org>
+
+	* 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 <jsled@asynchronous.org>
 
 	* art/: Add, with 2.0 {banner,icon,logo,splash} art.

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

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