From b253df6c8ac83ad74a3ff4bd52939321377f071d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andreas=20K=C3=B6hler?= Date: Sun, 3 Jun 2007 20:56:52 +0000 Subject: [PATCH] Add exact->inexact in plots for Guile 1.8 to print parsable doubles. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@16152 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/report/report-system/html-barchart.scm | 2 +- src/report/report-system/html-piechart.scm | 2 +- src/report/report-system/html-scatter.scm | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/report/report-system/html-barchart.scm b/src/report/report-system/html-barchart.scm index 19293997eb..caa2ecafe4 100644 --- a/src/report/report-system/html-barchart.scm +++ b/src/report/report-system/html-barchart.scm @@ -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 () diff --git a/src/report/report-system/html-piechart.scm b/src/report/report-system/html-piechart.scm index 95384b60dc..264c4e54a8 100644 --- a/src/report/report-system/html-piechart.scm +++ b/src/report/report-system/html-piechart.scm @@ -136,7 +136,7 @@ (map (lambda (elt) (cond ((number? elt) - (abs elt)) + (exact->inexact (abs elt))) ((string? elt) (with-input-from-string elt (lambda () diff --git a/src/report/report-system/html-scatter.scm b/src/report/report-system/html-scatter.scm index 91d2dbe767..ac418fda79 100644 --- a/src/report/report-system/html-scatter.scm +++ b/src/report/report-system/html-scatter.scm @@ -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 ()