AUDIT: r15088 - gnucash/trunk - Fix some scheme inexact errors. Fixes 347462.

[David Hampton]

Author: hampton
Date: 2006-11-05 23:45:27 -0500 (Sun, 05 Nov 2006)
New Revision: 15088
Trac: http://svn.gnucash.org/trac/changeset/15088

Modified:
   gnucash/trunk/ChangeLog
   gnucash/trunk/src/report/standard-reports/account-piecharts.scm
   gnucash/trunk/src/report/standard-reports/category-barchart.scm
Log:
Fix some scheme inexact errors.  Fixes 347462.
BP


Modified: gnucash/trunk/ChangeLog
===================================================================
--- gnucash/trunk/ChangeLog	2006-11-05 06:58:09 UTC (rev 15087)
+++ gnucash/trunk/ChangeLog	2006-11-06 04:45:27 UTC (rev 15088)
@@ -1,3 +1,9 @@
+2006-11-05  David Hampton  <hampton at 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 at asynchronous.org>
 
 	* art/: Add, with 2.0 {banner,icon,logo,splash} art.

Modified: gnucash/trunk/src/report/standard-reports/account-piecharts.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/account-piecharts.scm	2006-11-05 06:58:09 UTC (rev 15087)
+++ gnucash/trunk/src/report/standard-reports/account-piecharts.scm	2006-11-06 04:45:27 UTC (rev 15088)
@@ -188,7 +188,8 @@
 
         (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))

Modified: gnucash/trunk/src/report/standard-reports/category-barchart.scm
===================================================================
--- gnucash/trunk/src/report/standard-reports/category-barchart.scm	2006-11-05 06:58:09 UTC (rev 15087)
+++ gnucash/trunk/src/report/standard-reports/category-barchart.scm	2006-11-06 04:45:27 UTC (rev 15088)
@@ -200,7 +200,8 @@
         
         (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))