r16152 - gnucash/trunk/src/report/report-system - Add exact->inexact in plots for Guile 1.8 to print parsable doubles.
Andreas Köhler
andi5 at cvs.gnucash.org
Sun Jun 3 16:56:53 EDT 2007
Author: andi5
Date: 2007-06-03 16:56:52 -0400 (Sun, 03 Jun 2007)
New Revision: 16152
Trac: http://svn.gnucash.org/trac/changeset/16152
Modified:
gnucash/trunk/src/report/report-system/html-barchart.scm
gnucash/trunk/src/report/report-system/html-piechart.scm
gnucash/trunk/src/report/report-system/html-scatter.scm
Log:
Add exact->inexact in plots for Guile 1.8 to print parsable doubles.
Modified: gnucash/trunk/src/report/report-system/html-barchart.scm
===================================================================
--- gnucash/trunk/src/report/report-system/html-barchart.scm 2007-06-03 20:00:14 UTC (rev 16151)
+++ gnucash/trunk/src/report/report-system/html-barchart.scm 2007-06-03 20:56:52 UTC (rev 16152)
@@ -266,7 +266,7 @@
(define (gnc:html-barchart-render barchart doc)
(define (ensure-numeric elt)
(cond ((number? elt)
- elt)
+ (exact->inexact elt))
((string? elt)
(with-input-from-string elt
(lambda ()
Modified: gnucash/trunk/src/report/report-system/html-piechart.scm
===================================================================
--- gnucash/trunk/src/report/report-system/html-piechart.scm 2007-06-03 20:00:14 UTC (rev 16151)
+++ gnucash/trunk/src/report/report-system/html-piechart.scm 2007-06-03 20:56:52 UTC (rev 16152)
@@ -136,7 +136,7 @@
(map
(lambda (elt)
(cond ((number? elt)
- (abs elt))
+ (exact->inexact (abs elt)))
((string? elt)
(with-input-from-string elt
(lambda ()
Modified: gnucash/trunk/src/report/report-system/html-scatter.scm
===================================================================
--- gnucash/trunk/src/report/report-system/html-scatter.scm 2007-06-03 20:00:14 UTC (rev 16151)
+++ gnucash/trunk/src/report/report-system/html-scatter.scm 2007-06-03 20:56:52 UTC (rev 16152)
@@ -127,7 +127,7 @@
(define (gnc:html-scatter-render scatter doc)
(define (ensure-numeric elt)
(cond ((number? elt)
- elt)
+ (exact->inexact elt))
((string? elt)
(with-input-from-string elt
(lambda ()
More information about the gnucash-changes
mailing list