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
This commit is contained in:
Andreas Köhler 2007-06-03 20:56:52 +00:00
parent d4439dc3e4
commit b253df6c8a
3 changed files with 3 additions and 3 deletions

View File

@ -266,7 +266,7 @@
(define (gnc:html-barchart-render barchart doc) (define (gnc:html-barchart-render barchart doc)
(define (ensure-numeric elt) (define (ensure-numeric elt)
(cond ((number? elt) (cond ((number? elt)
elt) (exact->inexact elt))
((string? elt) ((string? elt)
(with-input-from-string elt (with-input-from-string elt
(lambda () (lambda ()

View File

@ -136,7 +136,7 @@
(map (map
(lambda (elt) (lambda (elt)
(cond ((number? elt) (cond ((number? elt)
(abs elt)) (exact->inexact (abs elt)))
((string? elt) ((string? elt)
(with-input-from-string elt (with-input-from-string elt
(lambda () (lambda ()

View File

@ -127,7 +127,7 @@
(define (gnc:html-scatter-render scatter doc) (define (gnc:html-scatter-render scatter doc)
(define (ensure-numeric elt) (define (ensure-numeric elt)
(cond ((number? elt) (cond ((number? elt)
elt) (exact->inexact elt))
((string? elt) ((string? elt)
(with-input-from-string elt (with-input-from-string elt
(lambda () (lambda ()