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